CMS/t/critic.t

#!perl -T
# vi: set tabstop=4 expandtab shiftwidth=4:

use strict;
use warnings;

use Test::More;
use ExtUtils::Manifest qw/maniread/;

my @perl_files;

BEGIN {
    my $manifest = maniread();
    die 'Unable to read MANIFEST' unless $manifest;

    foreach my $file (keys %$manifest) {
        if ($file =~ m/.*\.p[ml]$/x) {
            push @perl_files, ($file);
        }
    }
}

unless ($ENV{RELEASE_TESTING}) {
    plan(skip_all => 'Author tests not required for installation');
}
else {
    eval { require Test::Perl::Critic; };
    if ($@) {
        plan(skip_all => 'Test::Perl::Critic required');
    }
    else {
        Test::Perl::Critic->import(
            -severity => 4,
            -exclude  => 'Variables::RequireLocalizedPunctuationVars'
        );
        plan(tests => scalar @perl_files);
    }
}

foreach my $file (sort @perl_files) {
    critic_ok($file);
}