93 lines
2.5 KiB
Plaintext
93 lines
2.5 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
|
|
# Perl::Critic::Policy::CodeLayout::RequireUseUTF8
|
|
|
|
[-ControlStructures::ProhibitUnlessBlocks]
|
|
# oh. c'mon. just a little bit
|
|
|
|
[-ValuesAndExpressions::ProhibitNoisyQuotes]
|
|
# that is not constructive constraint at all
|
|
|
|
[-Variables::ProhibitPackageVars]
|
|
# sad, but true - this is how real world actually works
|
|
|
|
[-NamingConventions::Capitalization]
|
|
# eh?
|
|
|
|
[-ControlStructures::ProhibitPostfixControls]
|
|
# just a tiny bit?
|
|
|
|
[-Miscellanea::ProhibitTies]
|
|
# seriously?
|
|
|
|
[-RegularExpressions::RequireExtendedFormatting]
|
|
# good to be, but i don't like to write a long book near each regexp desribing what it does
|
|
|
|
[-InputOutput::RequireBriefOpen]
|
|
# I'm closing that fucking FH as soon as fucking possible, is that clear, you, little shit?
|
|
|
|
[-ValuesAndExpressions::ProhibitEmptyQuotes]
|
|
# totally garbage rule
|
|
|
|
[-CodeLayout::RequireTidyCode]
|
|
# just fuck off
|
|
|
|
[-CodeLayout::ProhibitParensWithBuiltins]
|
|
# nope
|
|
|
|
[-InputOutput::RequireCheckedClose]
|
|
# let's imagine situation that close() returns an error - what i'm supposed to do?
|
|
|
|
[-RegularExpressions::RequireLineBoundaryMatching]
|
|
# i don't give a shit to folks that think in sed|awk way - it's fucking perl, man, it uses perl regexes, not those
|
|
# pricky posix ones!
|
|
|
|
[-ValuesAndExpressions::ProhibitMagicNumbers]
|
|
# in this program it is easy to guess what "magick" numbers means, just rtfm, don't be lazy asshole.
|
|
|
|
[-Modules::ProhibitExcessMainComplexity]
|
|
# okay. next time I promise I'll do that.
|
|
|
|
[-RegularExpressions::ProhibitEscapedMetacharacters]
|
|
# no, i have to allow this, so go play in your sandbox in your kindergarden
|
|
|
|
[-ControlStructures::ProhibitCascadingIfElse]
|
|
# just shut the fuck up
|
|
|
|
[-Subroutines::ProhibitSubroutinePrototypes]
|
|
# i like it!
|
|
|
|
[-TooMuchCode::ProhibitUnnecessaryUTF8Pragma]
|
|
|
|
[-CodeLayout::RequireUseUTF8]
|
|
|
|
[-Miscellanea::ProhibitUnrestrictedNoCritic]
|
|
|
|
[-Editor::RequireEmacsFileVariables]
|
|
|
|
[-CodeLayout::RequireASCII]
|
|
|
|
[-TooMuchCode::ProhibitDuplicateLiteral]
|
|
|
|
[-ErrorHandling::RequireUseOfExceptions]
|
|
|
|
[-ValuesAndExpressions::RequireConstantOnLeftSideOfEquality]
|
|
|
|
[-Lax::RequireConstantOnLeftSideOfEquality::ExceptEq]
|
|
|
|
[-Lax::ProhibitEmptyQuotes::ExceptAsFallback]
|
|
|
|
[-ValuesAndExpressions::RestrictLongStrings]
|