| line |
true |
false |
branch |
|
103
|
0 |
32 |
unless wantarray |
|
104
|
0 |
32 |
unless $pm_text =~ /
(
=head \d \s+
(?:licen[cs]e|licensing|copyright|legal)\b
)
/gimsx |
|
113
|
32 |
0 |
if ($pm_text =~ /
\G
(
.*?
)
(=head\\d.*|=cut.*|)
\z
/imsx) |
|
127
|
471 |
2628 |
unless ref $pattern eq "Regexp" |
|
129
|
31 |
3068 |
if ($license_text =~ /\b$pattern\b/i) |
|
134
|
11 |
19 |
(ref $license || '') eq 'ARRAY' ? : |
|
|
1 |
30 |
(ref $license || '') eq 'CODE' ? : |
|
138
|
0 |
31 |
unless @result |
|
159
|
0 |
26 |
unless wantarray |
|
163
|
0 |
26 |
unless $license_text and my $license = $meta_keys{$license_text} |
|
186
|
2 |
0 |
$v eq '2' ? : |
|
|
1 |
2 |
$v eq '1' ? : |
|
|
0 |
3 |
!defined($v) ? : |
|
191
|
1 |
2 |
unless $src->{$key} |
|
225
|
0 |
1 |
unless defined $arg->{'short_name'} |
|
228
|
0 |
1 |
unless $short_name{$short} |
|
255
|
0 |
1 |
unless defined $arg->{'spdx_expression'} |
|
258
|
0 |
1 |
unless $spdx_expression{$spdx} |