Branch Coverage

blib/lib/Perl/Lint.pm
Criterion Covered Total %
branch 25 30 83.3


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 3159 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)