#!/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?

[-Subroutines::ProhibitExcessComplexity]
# Noone cares

[-ValuesAndExpressions::ProhibitMagicNumbers]
# this policy makes too much false positives

[-RegularExpressions::ProhibitEscapedMetacharacters]
# Looks like it pointless. How can i match simple dot without putting \. in regex? fuck off, man

[-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... in some cases it reduces readbility

[-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(,)

[-NamingConventions::Capitalization]
# duh...
# Noone care, really

[-ControlStructures::ProhibitUnlessBlocks]
# They should not be too complex - only one condition should be checked,
# that's all

[-ValuesAndExpressions::RequireNumberSeparators]
# Not really

[-InputOutput::RequireBriefOpen]
# Yes, i do!

[-ValuesAndExpressions::ProhibitLongChainsOfMethodCalls]
# But i do really want to use them in JSON::XS declaration!

[-Subroutines::ProhibitExplicitReturnUndef]
# Okay, fuckoff

[-ControlStructures::ProhibitCStyleForLoops]
# But it way much more conventional and less butt-ugly that perlish notaion with $_ as conter var