#!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;/) {
      ++$found_strict;
      last;
    }
  }
  close PL;
  ok($found_strict, "file $filename has use strict");
}