satisfied perl::Critic severity 4