1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
#!perl
use strict;
use warnings;
use Perl::Critic;
use Perl::Critic::Utils qw{ :severities };
use Test::More;
use Data::Dumper;
use constant POLICY => 'Perl::Critic::Policy::TooMuchCode::ProhibitLargeBlock';
{
my $pc = Perl::Critic->new( -only => 1 );
$pc->add_policy( -policy => POLICY, -params => { block_statement_count_limit => 20 } );
my $code = q~
use strict;
map {
print 42;
print 42;
print 42;
print 42;
print 42;
print 42;
print 42;
print 42;
print 42;
print 42;
print 42;
print 42;
} (1...100)
~;
my @violations = $pc->critique( \$code );
ok !@violations;
}
done_testing();
|
