3 use Eval::WithLexicals;
7 use get_strictures_hints qw($strictures_hints $strictures_warn);
9 my $eval = Eval::WithLexicals->with_plugins("HintPersistence")->new(prelude => '');
12 [ $eval->eval('$x = 1') ],
14 'Basic non-strict eval ok'
22 $eval->eval('use strictures 1');
25 local $SIG{__WARN__} = sub { };
27 ok !eval { $eval->eval('${"x"}') }, 'Unable to use undeclared variable';
28 like $@, qr/Can't use string .* as a SCALAR ref/,
29 'Correct message in $@';
33 ${$eval->hints->{q{$^H}}}, $strictures_hints,
34 'Hints are set per strictures'
38 (unpack "H*", ${$eval->hints->{q{${^WARNING_BITS}}}}),
39 (unpack "H*", $strictures_warn),
40 'Warning bits are set per strictures'
48 # Assumption about perl internals: sort pragma will set a key in %^H.
49 $eval->eval(q{ { use hint_hash_pragma 'param' } }),
50 ok !exists $eval->hints->{q{%^H}}->{hint_hash_pragma},
51 "Lexical pragma used below main scope not captured";
53 $eval->eval(q{ use hint_hash_pragma 'param' }),
54 is $eval->hints->{q{%^H}}->{hint_hash_pragma}, 'param',
55 "Lexical pragma captured";