Perl::Critic complains