1package Perl::Lint::Filter::LikePerlCritic::Stern; 2use strict; 3use warnings; 4use utf8; 5use Perl::Lint::Filter::LikePerlCritic::Harsh; 6 7sub filter { 8 return [ 9 qw{ 10 BuiltinFunctions::ProhibitLvalueSubstr 11 BuiltinFunctions::ProhibitComplexMappings 12 BuiltinFunctions::ProhibitUniversalIsa 13 BuiltinFunctions::ProhibitVoidGrep 14 BuiltinFunctions::RequireSimpleSortBlock 15 BuiltinFunctions::ProhibitVoidMap 16 ClassHierarchies::ProhibitAutoloading 17 ClassHierarchies::ProhibitExplicitISA 18 BuiltinFunctions::ProhibitUniversalCan 19 CodeLayout::ProhibitHardTabs 20 ControlStructures::ProhibitCascadingIfElse 21 ControlStructures::ProhibitDeepNests 22 ControlStructures::ProhibitNegativeExpressionsInUnlessAndUntilConditions 23 ErrorHandling::RequireCheckingReturnValueOfEval 24 ErrorHandling::RequireCarping 25 InputOutput::ProhibitBacktickOperators 26 InputOutput::ProhibitJoinedReadline 27 InputOutput::RequireCheckedOpen 28 Miscellanea::ProhibitFormats 29 Miscellanea::ProhibitUnrestrictedNoCritic 30 Modules::ProhibitConditionalUseStatements 31 Modules::ProhibitExcessMainComplexity 32 NamingConventions::ProhibitAmbiguousNames 33 RegularExpressions::ProhibitCaptureWithoutTest 34 RegularExpressions::ProhibitComplexRegexes 35 RegularExpressions::ProhibitUnusedCapture 36 RegularExpressions::RequireExtendedFormatting 37 Subroutines::ProhibitExcessComplexity 38 Subroutines::ProhibitManyArgs 39 Subroutines::ProhibitUnusedPrivateSubroutines 40 Subroutines::ProtectPrivateSubs 41 TestingAndDebugging::RequireTestLabels 42 ValuesAndExpressions::ProhibitComplexVersion 43 ValuesAndExpressions::ProhibitImplicitNewlines 44 ValuesAndExpressions::ProhibitMismatchedOperators 45 ValuesAndExpressions::ProhibitQuotesAsQuotelikeOperatorDelimiters 46 ValuesAndExpressions::ProhibitSpecialLiteralHeredocTerminator 47 ValuesAndExpressions::ProhibitVersionStrings 48 ValuesAndExpressions::RequireQuotedHeredocTerminator 49 Variables::ProhibitPackageVars 50 Variables::ProhibitReusedNames 51 Variables::ProhibitUnusedVariables 52 Variables::ProtectPrivateVars 53 Variables::RequireInitializationForLocalVars 54 }, 55 @{Perl::Lint::Filter::LikePerlCritic::Harsh->filter}, 56 ]; 57} 58 591; 60 61