add code for Test::Perl::Critic