Commit | Line | Data |
32645610 |
1 | #!./perl |
2 | |
32645610 |
3 | use strict; |
4 | use warnings; |
eaa79d3d |
5 | |
6 | BEGIN { |
7 | unshift @INC, 'lib'; |
8 | require './test.pl'; |
9 | plan(tests => 14); |
10 | } |
32645610 |
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 | { |
f52edb18 |
20 | is(mypragma::in_effect(), undef, "pragma not in effect yet"); |
21 | eval qq{is(mypragma::in_effect(), undef, "pragma not in effect yet"); 1} |
22 | or die $@; |
23 | |
32645610 |
24 | use mypragma; |
27eaf14c |
25 | use Sans_mypragma; |
fd9f6265 |
26 | is(mypragma::in_effect(), 42, "pragma is in effect within this block"); |
27eaf14c |
27 | is(Sans_mypragma::affected(), undef, |
28 | "pragma not in effect outside this file"); |
fd9f6265 |
29 | eval qq{is(mypragma::in_effect(), 42, |
f52edb18 |
30 | "pragma is in effect within this eval"); 1} or die $@; |
2643c356 |
31 | |
32 | { |
33 | no mypragma; |
34 | is(mypragma::in_effect(), 0, "pragma no longer in effect"); |
35 | eval qq{is(mypragma::in_effect(), 0, "pragma no longer in effect"); 1} |
36 | or die $@; |
37 | } |
38 | |
fd9f6265 |
39 | is(mypragma::in_effect(), 42, "pragma is in effect within this block"); |
40 | eval qq{is(mypragma::in_effect(), 42, |
2643c356 |
41 | "pragma is in effect within this eval"); 1} or die $@; |
32645610 |
42 | } |
43 | is(mypragma::in_effect(), undef, "pragma no longer in effect"); |
f52edb18 |
44 | eval qq{is(mypragma::in_effect(), undef, "pragma not in effect"); 1} or die $@; |
32645610 |
45 | |
46 | |
47 | BEGIN { |
48 | is($^H{mypragma}, undef, "Should no longer be in %^H"); |
49 | } |