samples/check.pl

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use blib;
   7
   8 use Perl::Critic::TestUtils qw<pcritique_with_violations>;
   9 Perl::Critic::TestUtils::block_perlcriticrc();
  10
  11 my $code = shift || exit;
  12
  13 my @violations = eval {
  14  pcritique_with_violations('Dynamic::NoIndirect', \$code)
  15 };
  16
  17 if ($@) {
  18  print $@;
  19 } else {
  20  print for @violations;
  21 }