Perlcritic fix