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} |