---
name: "Perl::Critic::Policy::TooMuchCode::ProhibitLargeBlock"
section: "3pm"
platform: "linux"
package: "libperl-critic-toomuchcode-perl"
version: "0.19-1"
release: "Debian 13 (Trixie)"
platforms: ["linux"]
url: "https://new.carta.tech/Perl::Critic::Policy::TooMuchCode::ProhibitLargeBlock"
---

# Perl::Critic::Policy::TooMuchCode::ProhibitLargeBlock(3pm)

## 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 another limit, you can set the parameter `"block_statement_count_limit"`.

For example in the *.perlcriticrc* file

```
  [TooMuchCode::ProhibitLargeBlock]
  block_statement_count_limit = 20
```