## no critic qwProhibitUselessNoCritic PodSpelling ProhibitExcessMainComplexity) # DEVELOPER DEFAULT 1a: allow unreachable & POD-commented code; SYSTEM SPECIAL 4: allow complex code outside subroutines, must be on line 1 # [[[ PREPROCESSOR ]]] # <<< PARSE_ERROR: 'ERROR ECOPAPC02' >>> # <<< PARSE_ERROR: 'Perl::Critic::Policy::Miscellanea::ProhibitUnrestrictedNoCritic' >>> # [[[ HEADER ]]] use RPerl; package RPerl::Test::Critic::Package_01_Bad_02; use strict; use warnings; our $VERSION = 0.001_000; # [[[ CRITICS ]]] ## no critic qw(ProhibitUselessNoCritic ProhibitMagicNumbers RequireCheckedSyscalls) # USER DEFAULT 1: allow numeric values & print operator # [[[ SUBROUTINES ]]] sub empty_sub { { my void $RETURN_TYPE }; return 2; } 1; # end of package