5 @INC = ('../lib', 'lib');
10 use Test::More tests => 14;
12 use mypragma (); # don't enable this pragma yet
15 is($^H{mypragma}, undef, "Shouldn't be in %^H yet");
18 is(mypragma::in_effect(), undef, "pragma not in effect yet");
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}
26 is(mypragma::in_effect(), 42, "pragma is in effect within this block");
27 is(Sans_mypragma::affected(), undef,
28 "pragma not in effect outside this file");
29 eval qq{is(mypragma::in_effect(), 42,
30 "pragma is in effect within this eval"); 1} or die $@;
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}
39 is(mypragma::in_effect(), 42, "pragma is in effect within this block");
40 eval qq{is(mypragma::in_effect(), 42,
41 "pragma is in effect within this eval"); 1} or die $@;
43 is(mypragma::in_effect(), undef, "pragma no longer in effect");
44 eval qq{is(mypragma::in_effect(), undef, "pragma not in effect"); 1} or die $@;
48 is($^H{mypragma}, undef, "Should no longer be in %^H");