| line |
true |
false |
branch |
|
50
|
0 |
0 |
if $abstract |
|
55
|
0 |
0 |
if (defined $name) |
|
59
|
0 |
0 |
if $abstract |
|
64
|
0 |
0 |
if (slurp($self->source) =~ /^\s*#+\s*ABSTRACT:\s*(.+)$/m) |
|
72
|
0 |
0 |
if ($_[0] =~ /
^\s*
(?:use|require) \s*
(v?[\d_\.]+)
\s* ;
/imsx) { } |
|
92
|
0 |
0 |
if ($perl_version) { } |
|
103
|
0 |
0 |
if ($content =~ /
^=head1 \s+ (?:authors?)\b \s*
([^\n]+)
/mix or $content =~ /
^=head \d \s+ (?:licen[cs]e|licensing|copyright|legal)\b \s*
.*? copyright .*? \d\d\d[\d.]+ \s* (?:\bby\b)? \s*
([^\n]+)
/imsx) { } |
|
118
|
0 |
0 |
defined $Pod::Escapes::Name2character_number{$1} ? : |
|
|
0 |
0 |
defined $2 ? : |
|
127
|
0 |
0 |
unless /\S/ |
|
156
|
0 |
0 |
unless my $license_text = shift() |
|
164
|
0 |
0 |
if ($license_text =~ /\b$pattern\b/i) |
|
174
|
0 |
0 |
if ($name eq 'Perl_5') { } |
|
207
|
0 |
0 |
if (my $klass = $license_map{lc $name}) { } |
|
208
|
0 |
0 |
unless eval "require $klass; 1" |
|
220
|
0 |
0 |
$self->authors ? : |
|
221
|
0 |
0 |
if ($self->_license_name) { } |
|
|
0 |
0 |
elsif (_is_perl5_license($pm_text)) { } |
|
231
|
0 |
0 |
if (eval 'require Software::LicenseUtils; 1') { } |
|
233
|
0 |
0 |
if (@guesses) { } |
|
235
|
0 |
0 |
unless eval "require $klass; 1" |