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