Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

29 lines (23 sloc) 0.546 kb
#!perl -w
# this is intended for various kwalitee tests
use lib 't';
use strict;
use Test::More;
use ExtUtils::Manifest qw(maniread);
my $manifest = maniread;
# work up counts first
my @pl_files = grep /\.(p[lm]|PL)$/, 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;/) {
++$found_strict;
last;
}
}
close PL;
ok($found_strict, "file $filename has use strict");
}
Jump to Line
Something went wrong with that request. Please try again.