Lines Matching full:strict

3 use strict;
16     no strict;
18     is( eval "use if ($v_minus > \$]), strict => 'subs'; \${'f'} = 12", 12,
20     is( eval "use if ($v_minus > \$]), strict => 'refs'; \${'f'} = 12", 12,
23     is( eval "use if ($v_plus > \$]), strict => 'subs'; \${'f'} = 12", 12,
26     is( eval "use if ($v_plus > \$]), strict => 'refs'; \${'f'} = 12", undef,
28     like( $@, qr/while "strict refs" in use/, 'expected error message'),
45     note(q|RT 132732: strict 'subs'|);
46     use strict "subs";
53             note(q|strict "subs" : 'use if' : condition false|);
58             note(q|strict "subs" : 'use if' : condition true|);
66         note(q|strict "subs" : 'no if' : condition variable|);