view release on metacpan or  search on metacpan

t/03pragma.t  view on Meta::CPAN

print $fh <<EOF;
use Acme::No;
use blarg;
1;
EOF

$fh = $filehandles[2];
print $fh <<EOF;
use Acme::No;
use strict;
\$foo = 1;   # this should error under strict;
1;
EOF

$fh = $filehandles[3];
print $fh <<EOF;
use Acme::No;
use strict;
my \$foo = 1;

no strict qw(vars);