File Coverage

blib/lib/Perl/Lint/Filter/LikePerlCritic/Harsh.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1             package Perl::Lint::Filter::LikePerlCritic::Harsh;
2 2     2   519 use strict;
  2         3  
  2         72  
3 2     2   8 use warnings;
  2         10  
  2         49  
4 2     2   8 use utf8;
  2         3  
  2         8  
5 2     2   352 use Perl::Lint::Filter::LikePerlCritic::Cruel;
  2         3  
  2         212  
6              
7             sub filter {
8             return [
9 4         13 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 4     4 0 1469 @{Perl::Lint::Filter::LikePerlCritic::Cruel->filter},
39             ];
40             }
41              
42             1;
43