The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

TooMuchCode::ProhibitLargeBlock -- Find oversized blocks

DESCRIPTION

This policy scan for large code blocks of the following type.

    map { ... };
    grep { ... };
    do { ... };

By default a large block is one with more than 10 statements. If you need an other limit, you can set the parameter block_statement_count_limit.

For example in the .perlcriticrc file

  [TooMuchCode::ProhibitLargeBlock]
  block_statement_count_limit = 20