8 use Perl::Critic::TestUtils qw<pcritique_with_violations>;
9 Perl::Critic::TestUtils::block_perlcriticrc();
11 my $code = shift || exit;
13 my @violations = eval {
14 pcritique_with_violations('Dynamic::NoIndirect', \$code)
20 print for @violations;