satisfied Perl::Critic