Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
28 lines (22 sloc) 538 Bytes
#!perl -w
# this is intended for various kwalitee tests
use strict;
use Test::More;
use ExtUtils::Manifest qw(maniread);
my $manifest = maniread;
# work up counts first
my @pl_files = grep /\.(p[lm]|PL|perl)$/, keys %$manifest;
plan tests => scalar(@pl_files);
for my $filename (@pl_files) {
open PL, "< $filename"
or die "Cannot open $filename: $!";
my $found_strict;
while (<PL>) {
if (/^use strict;/) {
close PL;
ok($found_strict, "file $filename has use strict");
Something went wrong with that request. Please try again.