Commit | Line | Data |
32645610 |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | chdir 't'; |
5 | @INC = ('../lib', 'lib'); |
6 | } |
7 | |
8 | use strict; |
9 | use warnings; |
10 | use Test::More tests => 5; |
11 | |
12 | use mypragma (); # don't enable this pragma yet |
13 | |
14 | BEGIN { |
15 | is($^H{mypragma}, undef, "Shouldn't be in %^H yet"); |
16 | } |
17 | |
18 | is(mypragma::in_effect(), undef, "pragma not in effect yet"); |
19 | { |
20 | use mypragma; |
21 | is(mypragma::in_effect(), 1, "pragma is in effect within this block"); |
22 | } |
23 | is(mypragma::in_effect(), undef, "pragma no longer in effect"); |
24 | |
25 | |
26 | BEGIN { |
27 | is($^H{mypragma}, undef, "Should no longer be in %^H"); |
28 | } |