#!/usr/bin/perl
#
# Make sure every module contains 'use strict' and 'use warnings'
use strict;
use warnings;
use Test::More;
use File::Find::Rule;
my @files = File::Find::Rule->file()->name('*.pm')->in('lib');
plan skip_all => "No modules" unless scalar @files;
plan tests => 2 * scalar @files;
foreach my $file ( @files ) {
my $fh;
local $/;
open $fh, $file;
my $content = <$fh>;
ok($content =~ qr/use\s+strict\b/, "$file using strict");
ok($content =~ qr/use\s+warnings\b/, "$file using warnings");
}