perlcritic -4 passed according to PBP