aboutsummaryrefslogtreecommitdiff
path: root/perlcritic/perlcriticrc
blob: 0bd59c9874a2da7249e0cdc548cd9cf77dfd8ed2 (plain) (blame)
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
# No mercy!
severity = brutal

# I flatly disagree with this policy; sometimes bitwise operators are in fact
# what I want, and I don't have the problem of using | instead of || as the
# policy documentation suggests
[-Bangs::ProhibitBitwiseOperators]

# Add some networking terms to the list of legal numbered names
[Bangs::ProhibitNumberedNames]
add_exceptions = inet4 inet6 ipv4 ipv6

# I'll keep code running for old Perls, but users are on their own with
# documentation, so allow e.g. L<http://...> on Perl 5.6
[-Compatibility::PodMinimumVersion]

# This one causes more trouble than it's worth, too
[-Documentation::RequirePODUseEncodingUTF8]

# Cool story, bro
[-Editor::RequireEmacsFileVariables]

# Soften this rather harsh policy a fair bit; tolerate negative one, all the
# single-digit integers as literals, three powers of 10 (for percentages,
# milliseconds etc), 60 (for angles and clocks), and 1900 (for localtime)
[ValuesAndExpressions::ProhibitMagicNumbers]
allowed_values = -1 0..9 10 60 100 1000 1900

# There's nothing wrong with $x == 2, and 2 == $x is just weird
[-ValuesAndExpressions::RequireConstantOnLeftSideOfEquality]