| line |
true |
false |
branch |
|
17
|
3 |
1393 |
if (my $ignores = $$args{'ignore'}) |
|
18
|
1 |
2 |
if (ref $ignores ne 'ARRAY') |
|
25
|
3 |
1392 |
if (my $filters = $$args{'filter'}) |
|
26
|
1 |
2 |
if (ref $filters ne 'ARRAY') |
|
58
|
0 |
2500 |
if (my $ref = ref $files) |
|
59
|
0 |
0 |
if ($ref ne 'ARRAY') |
|
67
|
0 |
2500 |
unless open my $fh, '<', $file |
|
85
|
0 |
2500 |
if (not defined $src or $src eq '') |
|
103
|
176 |
14282 |
if ($line =~ /(#.+)?##\s*no\slint(?:\s+(?:qw)?([(][^)]*[)]|"[^"]*"|'[^']*'))?/) |
|
104
|
2 |
174 |
if $1 |
|
107
|
20 |
154 |
if ($2) |
|
120
|
4 |
2586 |
if ($policy eq 'Perl::Lint::Policy::Miscellanea::ProhibitUselessNoLint') |
|
125
|
6 |
2580 |
if ($policy eq 'Perl::Lint::Policy::Miscellanea::ProhibitUnrestrictedNoLint') |
|
134
|
3168 |
148 |
if (not $no_lint or keys %$no_lint > 0 and not $$no_lint{(split(/::/, $$violation{'policy'}, 0))[-1]}) |
|
141
|
4 |
2496 |
if ($prohibit_useless_no_lint_policy) |