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
|
#!perl
use strict;
use Perl::Critic ();
use Perl::Critic::Utils qw{ :severities };
use Test::More;
use constant POLICY =>
'Perl::Critic::Policy::TooMuchCode::ProhibitUnusedImport';
{
my $pc = Perl::Critic->new( -only => 1 );
$pc->add_policy(
-policy => POLICY,
-params => { ignored_modules => 'Test::Thingy' },
);
my $code = q~
use strict;
use Git::Sub qw( push );
use Test::Thingy qw( Some::Module );
git::push qw(--tags origin master);
~;
my @violations = $pc->critique( \$code );
ok( !@violations, 'no violations' );
}
done_testing();
|
