play nice with Perl::Critic