| line |
true |
false |
branch |
|
98
|
0 |
17 |
unless wantarray |
|
99
|
0 |
17 |
unless $pm_text =~ /
(
=head \d \s+
(?:licen[cs]e|licensing|copyright|legal)\b
)
/gimsx |
|
108
|
17 |
0 |
if ($pm_text =~ /
\G
(
.*?
)
(=head\\d.*|=cut.*|)
\z
/imsx) |
|
122
|
86 |
869 |
unless ref $pattern eq 'Regexp' |
|
124
|
16 |
939 |
if ($license_text =~ /\b$pattern\b/i) |
|
129
|
11 |
4 |
(ref $license || '') eq 'ARRAY' ? : |
|
|
1 |
15 |
(ref $license || '') eq 'CODE' ? : |
|
133
|
0 |
16 |
unless @result |
|
154
|
0 |
26 |
unless wantarray |
|
158
|
0 |
26 |
unless $license_text and my $license = $meta_keys{$license_text} |
|
181
|
2 |
0 |
$v eq '2' ? : |
|
|
1 |
2 |
$v eq '1' ? : |
|
|
0 |
3 |
!defined($v) ? : |
|
186
|
1 |
2 |
unless $src->{$key} |
|
220
|
0 |
1 |
unless defined $arg->{'short_name'} |
|
223
|
0 |
1 |
unless $short_name{$short} |
|
250
|
0 |
1 |
unless defined $arg->{'spdx_expression'} |
|
253
|
0 |
1 |
unless $spdx_expression{$spdx} |