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