← Back to branch summary

~ubuntu-branches/ubuntu/raring/libdevel-pragma-perl/raring

« back to all changes in this revision

Viewing changes to t/test_10.pm

  • Committer: Package Import Robot
  • Author(s): Stig Sandbeck Mathisen
  • Date: 2012-04-22 00:28:54 UTC
  • Revision ID: package-import@ubuntu.com-20120422002854-88zt34apr9nwlh8u
Tags: upstream-0.54
Import upstream version 0.54

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/test_10.pm
 
1
package test_10;
 
2
 
 
3
use strict;
 
4
use warnings;
 
5
 
 
6
our $test;
 
7
 
 
8
# 0 for failure if the key has leaked
 
9
# 1 for success if it hasn't
 
10
BEGIN { $test = exists($^H{'Devel::Pragma::Test'}) ? 0 : 1 }
 
11
 
 
12
sub test() { $test }
 
13
 
 
14
1;