81 lines
2.4 KiB
Plaintext
81 lines
2.4 KiB
Plaintext
#!/usr/bin/env perlcritic
|
|
severity = 5
|
|
verbose = 8
|
|
|
|
# minorify some of warnings that are not really critical
|
|
[-InputOutput::RequireCheckedClose]
|
|
# what can we handle in case of error?
|
|
|
|
[-Modules::ProhibitExcessMainComplexity]
|
|
# noone cares
|
|
|
|
[-Subroutines::ProhibitExcessComplexity]
|
|
# noone cares
|
|
|
|
[-Subroutines::ProhibitExplicitReturnUndef]
|
|
# but it's very handy sometimes!
|
|
|
|
[-ValuesAndExpressions::ProhibitMagicNumbers]
|
|
# this policy makes too much false positives
|
|
|
|
[-RegularExpressions::RequireLineBoundaryMatching]
|
|
# we use /m as needed
|
|
|
|
[-RegularExpressions::RequireExtendedFormatting]
|
|
# we do not use extended formatting of regex, they still not THAT complex
|
|
|
|
[-RegularExpressions::RequireDotMatchAnything]
|
|
# huh?
|
|
|
|
[-RegularExpressions::ProhibitEscapedMetacharacters]
|
|
# looks like it pointless
|
|
|
|
[-ControlStructures::ProhibitCascadingIfElse]
|
|
# I like long ifelse chains
|
|
|
|
[-ControlStructures::ProhibitPostfixControls]
|
|
# in short lines we can afford ourselves to use postfix controls
|
|
# but ofcorse we shoul avoid such constructions in long lines
|
|
|
|
[-Subroutines::ProhibitSubroutinePrototypes]
|
|
# Contrary to Perl::Critic we consider prototypes as useful, even if
|
|
# the compile-time checks of Perl are not perfect, Perl may give some
|
|
# hints.
|
|
|
|
[-CodeLayout::RequireTidyCode]
|
|
# impossible to complete, because of on higher linting levels ## no critic
|
|
# require be per-case on same line where critique is, but tidy align them
|
|
# one line down
|
|
|
|
[-CodeLayout::ProhibitParensWithBuiltins]
|
|
# duh...
|
|
|
|
[-ValuesAndExpressions::ProhibitEmptyQuotes]
|
|
# cause we consider following correct and useful: my $var = '';
|
|
# the recomended use of q{} looks too complex: my $var = q{};
|
|
|
|
[-ValuesAndExpressions::ProhibitNoisyQuotes]
|
|
# other people, other opinions: "," is better readable than qw(,)
|
|
|
|
[-BuiltinFunctions::ProhibitSleepViaSelect]
|
|
# We do not wish to use too much external modules.
|
|
# select undef, undef, undef, 0.25; # actually is okay if you add comment that
|
|
# it is sleep for 0.25 seconds
|
|
|
|
[-NamingConventions::Capitalization]
|
|
# duh...
|
|
# Noone care, really
|
|
|
|
[-ControlStructures::ProhibitUnlessBlocks]
|
|
# they should not be too complex - only one condition should be checked,
|
|
# that's all
|
|
|
|
[-Miscellanea::ProhibitTies]
|
|
# Just allow it. It's very handy stuff and extremely simple and safe enugh to use.
|
|
|
|
[-ValuesAndExpressions::RequireNumberSeparators]
|
|
# not really
|
|
|
|
[-InputOutput::RequireBracedFileHandleWithPrint]
|
|
# we prefer not to use braced file handles
|