4 local $ENV{PERL_STRICTURES_EXTRA} = 0;
5 strictures->VERSION(1); strictures->import();
6 # Find the hint value that 'use strictures 1' sets on this perl.
7 $strictures_hints = $^H;
12 use Eval::WithLexicals;
14 my $eval = Eval::WithLexicals->with_plugins("HintPersistence")->new(prelude => '');
17 [ $eval->eval('$x = 1') ],
19 'Basic non-strict eval ok'
27 $eval->eval('use strictures 1');
30 local $SIG{__WARN__} = sub { };
32 ok !eval { $eval->eval('$x') }, 'Unable to use undeclared variable';
33 like $@, qr/requires explicit package/, 'Correct message in $@';
37 $eval->hints->{q{$^H}}, \$strictures_hints,
38 'Hints are set per strictures'
46 # Assumption about perl internals: sort pragma will set a key in %^H.
48 $eval->eval(q{ { use sort 'stable' } }),
49 ok !exists $eval->hints->{q{%^H}}->{sort},
50 "Lexical pragma used below main scope not captured";
52 $eval->eval(q{ use sort 'stable' }),
53 ok exists $eval->hints->{q{%^H}}->{sort},
54 "Lexical pragma captured";