1package Perl::Lint::Filter::LikePerlCritic::Cruel; 2use strict; 3use warnings; 4use utf8; 5use Perl::Lint::Filter::LikePerlCritic::Brutal; 6 7sub filter { 8 return [ 9 qw{ 10 BuiltinFunctions::ProhibitSleepViaSelect 11 BuiltinFunctions::ProhibitStringyEval 12 BuiltinFunctions::RequireGlobFunction 13 ClassHierarchies::ProhibitOneArgBless 14 ControlStructures::ProhibitMutatingListFunctions 15 InputOutput::ProhibitBarewordFileHandles 16 InputOutput::ProhibitInteractiveTest 17 InputOutput::ProhibitTwoArgOpen 18 InputOutput::RequireEncodingWithUTF8Layer 19 Modules::ProhibitEvilModules 20 Modules::RequireBarewordIncludes 21 Modules::RequireFilenameMatchesPackage 22 Subroutines::ProhibitExplicitReturnUndef 23 Subroutines::ProhibitNestedSubs 24 Subroutines::ProhibitReturnSort 25 Subroutines::ProhibitSubroutinePrototypes 26 TestingAndDebugging::ProhibitNoStrict 27 TestingAndDebugging::RequireUseStrict 28 ValuesAndExpressions::ProhibitLeadingZeros 29 Variables::ProhibitConditionalDeclarations 30 Variables::ProhibitEvilVariables 31 Variables::RequireLexicalLoopIterators 32 }, 33 @{Perl::Lint::Filter::LikePerlCritic::Brutal->filter}, 34 ]; 35} 36 371; 38 39