use Test::More;
ues Perl::Critic;
my $policy = Perl::Critic->import(
    -verbose  => 8,
    -severity => 5,
    -profile => '/path/to/corporate/perlcriticrc',
    -exclude => [
    ],
    -include => [
        'Subroutines:ProhibitUnusedPrivateSubroutines',
    ],
);

$policy->add_policy( -policy => 'Modules:ProhibitExcessMainComplexity', -params => {max_mccabe => 10} )

foreach my $file (globidyglob some files) {
   my @dohs = $policy->critique($file);
   is(0, not scalar @dohs, "for shame!");
}