add new comparison method rgb_difference that resembles arithmetical difference per...
[imager.git] / t / 950-kwalitee / 080-nousevars.t
1 #!perl -w
2 use strict;
3 use ExtUtils::Manifest qw(maniread);
4 use Test::More;
5
6 my $manifest = maniread();
7 my @pm = sort grep /\.pm$/ && !m(Devel/CheckLib.pm$), keys %$manifest;
8
9 for my $file (@pm) {
10   open my $pm, "<", $file
11     or die "Cannot open $file; $!";
12   my $lines = join "", <$pm>;
13   ok($lines =~ /^ *our \$VERSION/m, "$file: has a \$VERSION");
14   ok($lines =~ /^use 5\.006;$/m, "$file: has use 5.006");
15   ok($lines !~ /use vars/, "$file: hasn't any use vars");
16 }
17 done_testing();