view release on metacpan or  search on metacpan

xt/author/perlcriticrc  view on Meta::CPAN

# Originally written by Lucem Incendo, http://www.lucemincendo.com/

# Note forward planning - we only actually run at level 4 as specified here.

# And yes, everyone believes that their function is simple enough and McCabe's
# inflating its complexity.  Simplify it anyway.

# Globals
severity = 4
# force = 0
# only = 0
# profile-strictness = warn
# color = 0
# pager = 
# top = 0
# verbose = 4
# include = 
# exclude = 
# single-policy = 
# theme = 
# color-severity-highest = bold red
# color-severity-high = magenta
# color-severity-medium = 
# color-severity-low = 
# color-severity-lowest = 

# Use `List::MoreUtils::any' instead of `grep' in boolean context.
[BuiltinFunctions::ProhibitBooleanGrep]
severity                           = 2


# Map blocks should have a single statement.
[BuiltinFunctions::ProhibitComplexMappings]
severity                           = 3

# The maximum number of statements to allow within a map block.
# Minimum value 1. No maximum.
# max_statements = 1


# Use 4-argument `substr' instead of writing `substr($foo, 2, 6) = $bar'.
[BuiltinFunctions::ProhibitLvalueSubstr]
severity                           = 3


# Forbid $b before $a in sort blocks.
[BuiltinFunctions::ProhibitReverseSortBlock]
severity                           = 1


# Use Time::HiRes instead of something like `select(undef, undef, undef, .05)'.
[BuiltinFunctions::ProhibitSleepViaSelect]
severity                           = 5


# Write `eval { my $foo; bar($foo) }' instead of `eval "my $foo; bar($foo);"'.
[BuiltinFunctions::ProhibitStringyEval]
severity                           = 5

# Allow eval of "use" and "require" strings.
# allow_includes = 0


# Write `split /-/, $string' instead of `split '-', $string'.
[BuiltinFunctions::ProhibitStringySplit]
severity                           = 2


# Write `eval { $foo->can($name) }' instead of `UNIVERSAL::can($foo, $name)'.
[BuiltinFunctions::ProhibitUniversalCan]
severity                           = 3


# Write `eval { $foo->isa($pkg) }' instead of `UNIVERSAL::isa($foo, $pkg)'.
[BuiltinFunctions::ProhibitUniversalIsa]
severity                           = 3


# Don't use `grep' in void contexts.
[BuiltinFunctions::ProhibitVoidGrep]
severity                           = 3