#!perl -T use Test::More; eval "use Test::Perl::Critic"; if ($@) { Test::More::plan( skip_all => "Test::Perl::Critic required for testing PBP compliance" ); } else { Test::Perl::Critic->import( -verbose => 8, -severity => 5, -exclude => [ # fails to detect a package is accessing objects of its own class: 'ProhibitAccessOfPrivateData', # subs expected to return a scalar *should* "return undef": 'ProhibitExplicitReturnUndef', ], ); } all_critic_ok();