5 @INC = ('../lib', 'lib');
10 use Test::More tests => 5;
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");
21 is(mypragma::in_effect(), 1, "pragma is in effect within this block");
23 is(mypragma::in_effect(), undef, "pragma no longer in effect");
27 is($^H{mypragma}, undef, "Should no longer be in %^H");