1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
severity = stern
theme = core
[Perl::Critic::Policy::BuiltinFunctions::ProhibitStringyEval]
allow_includes = 1
[Perl::Critic::Policy::CodeLayout::ProhibitHardTabs]
# I don't intend to comply with this at this point.
severity = 2
[Perl::Critic::Policy::Documentation::PodSpelling]
spell_command = aspell list
[Perl::Critic::Policy::ErrorHandling::RequireCheckingReturnValueOfEval]
# The default is 3 ('harsh'), but I think this is more severe than that.
severity = stern
[Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest]
# Perl::Critic and Perl Best Practices prefer the IO::Interactive
# is_interactive() subroutine to -T STDIN. But that assumes that
# ARGV is used for input, and that you don't want to be interactive
# if output goes to a pipe. I do not want these assumptions, but
# rather than disable them in the code I am simply assigning them
# a severity slightly higher than I currently use.
severity = cruel
[Perl::Critic::Policy::InputOutput::RequireCheckedOpen]
# For some reason the default is 3 ('harsh'). But IM(NS)HO this
# kind of thing should be a 5. So:
severity = gentle
[Perl::Critic::Policy::Miscellanea::ProhibitUselessNoCritic]
severity = stern
[Perl::Critic::Policy::Subroutines::ProhibitUnusedPrivateSubroutines]
severity = stern
private_name_regex = _(?!_)\w+
[Perl::Critic::Policy::Subroutines::RequireArgUnpacking]
allow_delegation_to = __arguments _arguments grep map
short_subroutine_statements = 3
[Perl::Critic::Policy::Subroutines::RequireFinalReturn]
terminal_funcs = CORE::exit
[Perl::Critic::Policy::TestingAndDebugging::ProhibitNoStrict]
allow = refs
[Perl::Critic::Policy::TestingAndDebugging::ProhibitNoWarnings]
allow = exiting once substr uninitialized
[Perl::Critic::Policy::ValuesAndExpressions::ProhibitConstantPragma]
# Perl::Critic and Perl Best Practices do not like the 'constant'
# pragma because it does not interpolate. It really does, the
# syntax is just different. Rather than disable the things in the
# source, I'm just assigning them a severity slightly greater than
# I customarily use.
severity = cruel
[Perl::Critic::Policy::ValuesAndExpressions::ProhibitInterpolationOfLiterals]
# This policy is severity 1 by default, but because of the desire to
# localize messages I want it severe enough that I get output.
severity = gentle
[Perl::Critic::Policy::Variables::ProhibitUnusedVarsStricter]
add_themes = core
allow_if_computed_by = __arguments _arguments
allow_unused_subroutine_arguments = 0
severity = stern
|
