| line |
true |
false |
branch |
|
15
|
0 |
73 |
unless ($self->{'fh'})
|
|
16
|
0 |
0 |
unless $self->{'file'}
|
|
17
|
0 |
0 |
unless open $self->{'fh'}, "<", $self->{'file'}
|
|
28
|
1607 |
1 |
unless /^ =encoding \s+ (\S+)/xi
|
|
35
|
317 |
691 |
unless /^=(?!cut)/ .. /^=cut/
|
|
37
|
68 |
623 |
if ($self->{'abstract'}) = /^ (?: [a-z_0-9:]+ | [BCIF] < [a-z_0-9:]+ > ) \s+ - \s+ (.*\S) /xi
|
|
42
|
267 |
345 |
unless /^=head1\s+AUTHORS?/i ... /^=/
|
|
43
|
134 |
211 |
if /^=/
|
|
44
|
67 |
144 |
if /\@/
|
|
46
|
6 |
67 |
unless @author
|
|
56
|
4 |
41 |
if defined $self->{'abstract'}
|
|
65
|
0 |
32 |
if defined $self->{'author'}
|