Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

28 lines (22 sloc) 0.538 kb
#!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");
Jump to Line
Something went wrong with that request. Please try again.