| line |
true |
false |
branch |
|
24
|
3 |
8 |
if ($yaml) |
|
25
|
3 |
0 |
if ($yaml->{'license'} and $yaml->{'license'} ne 'unknown') |
|
27
|
0 |
3 |
if ref $license eq 'ARRAY' |
|
37
|
0 |
11 |
if (my($file) = grep({$_ =~ /^(?:LICEN[CS]E|COPYING)\b/;} @$files)) |
|
45
|
0 |
9 |
if $file =~ /(?:Makefile|Build)\.PL$/ |
|
47
|
0 |
9 |
unless -r $path |
|
48
|
0 |
9 |
unless open my $fh, '<', $path |
|
57
|
0 |
33 |
if ($first_four eq '=hea' and ($uc_head = uc $_) =~ /(?:LICEN[CS]E|LICEN[CS]ING|COPYRIGHT|LEGAL)/) { } |
|
|
2 |
31 |
elsif ($first_four eq '=hea' or $first_four eq '=cut') { } |
|
|
0 |
31 |
elsif ($in_pod) { } |
|
60
|
0 |
0 |
if ($in_pod) |
|
62
|
0 |
0 |
if (@guessed) { } |
|
74
|
0 |
2 |
if ($in_pod) |
|
76
|
0 |
0 |
if (@guessed) { } |
|
89
|
0 |
9 |
if ($pod) |
|
91
|
0 |
0 |
if (@guessed) { } |
|
97
|
0 |
9 |
if (@possible_licenses) { } |
|
102
|
0 |
9 |
if @unknown_license_texts |
|
105
|
0 |
11 |
if (%licenses) |
|
108
|
0 |
0 |
if (@possible_licenses == 1) |
|
132
|
3 |
8 |
$yaml->{'license'} && $yaml->{'license'} ne 'unknown' ? : |
|
136
|
0 |
0 |
unless $yaml |
|
137
|
0 |
0 |
unless $yaml->{'license'} |
|
147
|
0 |
11 |
$d->{'external_license_file'} || $d->{'license_in_pod'} ? : |
|
159
|
0 |
11 |
+(shift())->{'external_license_file'} ? : |
|
171
|
0 |
11 |
$d->{'license_in_pod'} ? : |
|
185
|
11 |
0 |
unless $d->{'license_in_pod'} |
|
187
|
0 |
0 |
@files_with_licenses ? : |