| line |
true |
false |
branch |
|
26
|
0 |
11 |
unless my $name = $args{'name'}
|
|
27
|
0 |
11 |
if $SPEC{"policy_$name"}
|
|
34
|
1 |
10 |
if $args{'deps'}
|
|
39
|
10 |
1 |
if ($args{'args'})
|
|
58
|
0 |
0 |
if ($ab =~ /\S/) { }
|
|
75
|
0 |
0 |
if (not length $ab) { }
|
|
|
0 |
0 |
elsif (length $ab >= $l) { }
|
|
94
|
0 |
0 |
if (length $ab <= $l) { }
|
|
108
|
0 |
0 |
if (not $ab =~ /\n/) { }
|
|
122
|
0 |
0 |
if ($ab =~ /^(Perl extension for blah blah blah)/i) { }
|
|
|
0 |
0 |
elsif ($ab =~ /^(The great new )\w+(::\w+)*/i) { }
|
|
|
0 |
0 |
elsif ($ab =~ /^\b(blah blah)\b/i) { }
|
|
140
|
0 |
0 |
if (not length $ab) { }
|
|
|
0 |
0 |
elsif ($ab =~ /^[[:lower:]]/) { }
|
|
156
|
0 |
0 |
if ($ab =~ /\.\z/) { }
|
|
170
|
0 |
0 |
if ($ab =~ /^( (?: (?:a|the) \s+)?
(?: perl\s?[56]? \s+)?
(?:extension|module|library|interface|xs \s binding)
(?: \s+ (?:to|for))?
)/xi) { }
|
|
190
|
0 |
0 |
unless keys %langs
|
|
196
|
0 |
0 |
if ($langs[0] ne 'en') { }
|
|
212
|
0 |
0 |
if ($ab =~ /!{3,}/) { }
|
|
218
|
0 |
0 |
if ($ab =~ /^[[:upper:]]+$/ and $spaces >= 2) { }
|
|
233
|
0 |
0 |
if ($ab =~ /^\w+(::\w+)+$/) { }
|
|
277
|
0 |
0 |
unless my $pr = $PROFILES{$profile}
|
|
286
|
0 |
0 |
ref $pol0 eq 'HASH' ? :
|
|
287
|
0 |
0 |
unless my $spec = $SPEC{"policy_$pol->{'name'}"}
|
|
289
|
0 |
0 |
if ($spec->{'deps'})
|
|
291
|
0 |
0 |
if $err
|
|
298
|
0 |
0 |
if ($res->[0] == 409)
|
|
300
|
0 |
0 |
if $severity >= 5
|