1package Perl::Lint::Filter::LikePerlCritic::Harsh; 2use strict; 3use warnings; 4use utf8; 5use Perl::Lint::Filter::LikePerlCritic::Cruel; 6 7sub filter { 8 return [ 9 qw{ 10 BuiltinFunctions::RequireBlockGrep 11 BuiltinFunctions::RequireBlockMap 12 CodeLayout::RequireConsistentNewlines 13 ControlStructures::ProhibitLabelsWithSpecialBlockNames 14 ControlStructures::ProhibitUnreachableCode 15 InputOutput::ProhibitExplicitStdin 16 InputOutput::ProhibitOneArgSelect 17 InputOutput::ProhibitReadlineInForLoop 18 InputOutput::RequireBriefOpen 19 Modules::ProhibitAutomaticExportation 20 Modules::ProhibitMultiplePackages 21 Modules::RequireEndWithOne 22 Modules::RequireExplicitPackage 23 Objects::ProhibitIndirectSyntax 24 Subroutines::ProhibitBuiltinHomonyms 25 Subroutines::RequireArgUnpacking 26 Subroutines::RequireFinalReturn 27 TestingAndDebugging::ProhibitNoWarnings 28 TestingAndDebugging::ProhibitProlongedStrictureOverride 29 TestingAndDebugging::RequireUseWarnings 30 ValuesAndExpressions::ProhibitCommaSeparatedStatements 31 ValuesAndExpressions::ProhibitConstantPragma 32 ValuesAndExpressions::ProhibitMixedBooleanOperators 33 Variables::ProhibitAugmentedAssignmentInDeclaration 34 Variables::ProhibitMatchVars 35 Variables::RequireLocalizedPunctuationVars 36 Variables::RequireNegativeIndices 37 }, 38 @{Perl::Lint::Filter::LikePerlCritic::Cruel->filter}, 39 ]; 40} 41 421; 43 44