line |
true |
false |
branch |
21
|
3 |
1 |
-e $pod ? :
|
27
|
11 |
40 |
if $file->name eq $filename
|
38
|
7 |
4 |
unless $self->override_author
|
41
|
4 |
0 |
unless $stash
|
54
|
0 |
11 |
if ($self->should_override_author)
|
60
|
0 |
11 |
if (@guess != 1)
|
83
|
11 |
0 |
if ($content =~ /
=head \d \s+ (?:authors?)\b \s*
([^\n]*)
|
=head \d \s+ (?:licen[cs]e|licensing|copyright|legal)\b \s*
.*? copyright .*? \d\d\d[\d.]+ \s* (?:\bby\b)? \s*
([^\n]*)
/imsx)
|
94
|
11 |
0 |
if (eval 'require Pod::Escapes; 1') { }
|
|
0 |
0 |
elsif (eval 'require Pod::Text; 1' and $Pod::Text::VERSION < 3) { }
|
105
|
16 |
0 |
defined $Pod::Escapes::Name2character_number{$1} ? :
|
|
0 |
16 |
defined $2 ? :
|
117
|
0 |
0 |
$Pod::Text::VERSION < 2 ? :
|
126
|
0 |
0 |
defined $$mapping{$1} ? :
|
|
0 |
0 |
defined $2 ? :
|
145
|
11 |
0 |
if ($content =~ /
=head \d \s+ (?:licen[cs]e|licensing|copyright|legal|authors?)\b \s*
.*? copyright .*? ([\d\-]+)
/imsx)
|