| line |
true |
false |
branch |
|
29
|
0 |
0 |
unless $self->SUPER::init($args) |
|
34
|
0 |
0 |
unless defined $distribution |
|
40
|
0 |
0 |
unless (defined $version) |
|
41
|
0 |
0 |
-f 'VERSION' ? : |
|
|
0 |
0 |
-f 'version' ? : |
|
44
|
0 |
0 |
if (defined $fn) |
|
45
|
0 |
0 |
unless my $v = 'IO::File'->new($fn, 'r') |
|
48
|
0 |
0 |
if $version =~ /(\d+\.[\d\.]+)/ |
|
53
|
0 |
0 |
unless defined $version |
|
80
|
0 |
0 |
ref $files eq 'ARRAY' ? : |
|
|
0 |
0 |
ref $files eq 'CODE' ? : |
|
|
0 |
0 |
ref $files eq 'Regexp' ? : |
|
84
|
0 |
0 |
if ref $select eq 'ARRAY' |
|
89
|
0 |
0 |
if (&$select($fn)) { } |
|
101
|
0 |
0 |
unless exists $args{'workdir'} |
|
108
|
0 |
0 |
unless (defined $version) |
|
109
|
0 |
0 |
defined $source ? : |
|
111
|
0 |
0 |
defined $source ? : |
|
|
0 |
0 |
-f $fn ? : |
|
114
|
0 |
0 |
if (defined $fn) { } |
|
|
0 |
0 |
elsif ($version = $self->version) { } |
|
115
|
0 |
0 |
unless my $v = 'IO::File'->new($fn, 'r') |
|
118
|
0 |
0 |
if $version =~ /(\d+\.[\d\.]+)/ |
|
128
|
0 |
0 |
if ($notice = $args{'notice'}) |
|
139
|
0 |
0 |
defined $source ? : |
|
|
0 |
0 |
exists $args{'manifest'} ? : |
|
145
|
0 |
0 |
if (defined $dest) { } |
|
163
|
0 |
0 |
if (defined $dest) |
|
165
|
0 |
0 |
defined $source ? : |
|
169
|
0 |
0 |
unless (-f $fn) |
|
175
|
0 |
0 |
unless (-e $dn and -M $dn < -M $fn and -s $dn == -s $fn) |
|
178
|
0 |
0 |
unless copy($fn, $dn) |
|
196
|
0 |
0 |
unless (ref $parser) |
|
198
|
0 |
0 |
if $@ |
|
201
|
0 |
0 |
unless $parser = $parser->new('skip_links', $skip_links) |
|
210
|
0 |
0 |
$source ? : |
|
212
|
0 |
0 |
unless (-f $fn) |
|
219
|
0 |
0 |
if ($dest) |
|
234
|
0 |
0 |
if defined $dn |
|
238
|
0 |
0 |
if $man->chapters |
|
284
|
0 |
0 |
if $manual->isPurePod |
|
288
|
0 |
0 |
if $@ and not $@ =~ /can't locate/i and not $@ =~ /attempt to reload/i |
|
298
|
0 |
0 |
if ($manual->name ne $manual->package) |
|
300
|
0 |
0 |
if defined $main |
|
305
|
0 |
0 |
defined $uses{'isa'} ? : |
|
309
|
0 |
0 |
if ref $isa |
|
312
|
0 |
0 |
if (my $realizes = $uses{'realizes'}) |
|
316
|
0 |
0 |
if ref $to |
|
338
|
0 |
0 |
unless my $dest = $args{'workdir'} |
|
345
|
0 |
0 |
exists $args{'manifest'} ? : |
|
350
|
0 |
0 |
unless (ref $format) |
|
352
|
0 |
0 |
if exists $formatters{$format} |
|
355
|
0 |
0 |
if $@ |
|
375
|
0 |
0 |
ref $args{'select'} eq 'CODE' ? : |
|
|
0 |
0 |
!defined($args{'select'}) ? : |
|
380
|
0 |
0 |
unless &$select($manual) |
|
382
|
0 |
0 |
unless ($manual->chapters) |