view release on metacpan or  search on metacpan

t/05package.t  view on Meta::CPAN

my $fh = $filehandles[0];
print $fh <<EOF;
use Acme::No;
no $good_no_perl;
1;
EOF

$fh = $filehandles[1];
print $fh <<EOF;
use lib qw($lib);
use AcmeTestGood;
1;
EOF

$fh = $filehandles[2];
print $fh <<EOF;
use Acme::No;
no $bad_no_perl;
1;
EOF

$fh = $filehandles[3];
print $fh <<EOF;
use lib qw($lib);
use AcmeTestBad;
1;
EOF

foreach my $filehandle (@filehandles) {
  $filehandle->close;
}

# don't execute the *.pm files
@filenames = grep m/\.pl/, @filenames;