149 lines
4.4 KiB
Plaintext
149 lines
4.4 KiB
Plaintext
#!/usr/bin/env perlcritic
|
|
|
|
# Задействованные модули критика:
|
|
#
|
|
# Perl::Critic::More
|
|
# Perl::Critic::Pulp
|
|
# Perl::Critic::TooMuchCode
|
|
# Perl::Critic::Lax
|
|
# Perl::Critic::CognitiveComplexity
|
|
# Perl::Critic::Policy::CompileTime
|
|
# Perl::Critic::Policy::ProhibitImplicitImport
|
|
# Perl::Critic::Policy::Dynamic::NoIndirect
|
|
# Perl::Critic::StricterSubs
|
|
# Perl::Critic::Policy::ProhibitImplicitImport
|
|
|
|
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 if..else chains
|
|
|
|
[-ControlStructures::ProhibitPostfixControls]
|
|
# In short lines we can afford ourselves to use postfix controls
|
|
# but ofcorse we should 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 recommended 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
|
|
|
|
[-Documentation::PodSpelling]
|
|
# It doesn't help, but emits annoying errors
|
|
|
|
[Documentation::RequirePodSections]
|
|
# Considering this as "soft" requirement. For modules that is (or will be)
|
|
# stand-alone libs well formed documentation is highly desired.
|
|
lib_sections = NAME | VERSION | DESCRIPTION | AUTHOR | LICENSE AND COPYRIGHT
|
|
|
|
[-InputOutput::RequireBriefOpen]
|
|
# Yes, i do!
|
|
|
|
[-ControlStructures::ProhibitDeepNests]
|
|
# Have to use it, so fuckoff
|
|
|
|
[-ControlStructures::ProhibitUntilBlocks]
|
|
# Until is really useful if condition is simple, so let's assume condition is
|
|
# always simple to read
|
|
|
|
[-CodeLayout::RequireASCII]
|
|
# Nope
|
|
|
|
[-Editor::RequireEmacsFileVariables]
|
|
|
|
[-TooMuchCode::ProhibitUnnecessaryUTF8Pragma]
|
|
|
|
[-ErrorHandling::RequireUseOfExceptions]
|
|
|
|
[-Lax::ProhibitEmptyQuotes::ExceptAsFallback]
|
|
|
|
[-TooMuchCode::ProhibitDuplicateLiteral]
|
|
|
|
[-ValuesAndExpressions::RequireConstantOnLeftSideOfEquality]
|
|
# But constants on the right side of coditional expression are more readable!
|
|
|
|
[-Lax::RequireConstantOnLeftSideOfEquality::ExceptEq]
|
|
# same as previous
|
|
|
|
[ValuesAndExpressions::RestrictLongStrings]
|
|
max_length = 200
|
|
|
|
[-TooMuchCode::ProhibitExtraStricture]
|
|
|
|
[-Documentation::ProhibitUnbalancedParens]
|
|
# closing paren on the next, you fucking fuck, so shut your ass up and stop farting on me
|
|
|
|
[-Subroutines::ProhibitCallsToUndeclaredSubs]
|
|
# Can't find how to mark DSL keywords
|
|
# (Moo{,se} provides has/with/extends/etc., Dancer{,2} provides more)
|
|
# This is problematic
|
|
|
|
[-Miscellanea::ProhibitUnrestrictedNoCritic]
|
|
|
|
[-RegularExpressions::ProhibitFixedStringMatches]
|
|
# no, just no. I'm too lazy to everytime check string length before substr |