| line |
true |
false |
branch |
|
31
|
0 |
0 |
unless $self->SUPER::init($args) |
|
36
|
0 |
0 |
unless defined $distribution |
|
42
|
0 |
0 |
unless (defined $version) |
|
43
|
0 |
0 |
-f 'VERSION' ? : |
|
|
0 |
0 |
-f 'version' ? : |
|
46
|
0 |
0 |
if (defined $fn) |
|
47
|
0 |
0 |
unless my $v = "IO::File"->new($fn, "r") |
|
50
|
0 |
0 |
if $version =~ /(\d+\.[\d\.]+)/ |
|
55
|
0 |
0 |
unless defined $version |
|
82
|
0 |
0 |
ref $files eq 'ARRAY' ? : |
|
|
0 |
0 |
ref $files eq 'CODE' ? : |
|
|
0 |
0 |
ref $files eq 'Regexp' ? : |
|
86
|
0 |
0 |
if ref $select eq "ARRAY" |
|
91
|
0 |
0 |
if (&$select($fn)) { } |
|
103
|
0 |
0 |
unless exists $args{'workdir'} |
|
110
|
0 |
0 |
unless (defined $version) |
|
111
|
0 |
0 |
defined $source ? : |
|
113
|
0 |
0 |
defined $source ? : |
|
|
0 |
0 |
-f $fn ? : |
|
116
|
0 |
0 |
if (defined $fn) { } |
|
|
0 |
0 |
elsif ($version = $self->version) { } |
|
117
|
0 |
0 |
unless my $v = "IO::File"->new($fn, "r") |
|
120
|
0 |
0 |
if $version =~ /(\d+\.[\d\.]+)/ |
|
130
|
0 |
0 |
if ($notice = $args{'notice'}) |
|
141
|
0 |
0 |
defined $source ? : |
|
|
0 |
0 |
exists $args{'manifest'} ? : |
|
147
|
0 |
0 |
if (defined $dest) { } |
|
165
|
0 |
0 |
if (defined $dest) |
|
167
|
0 |
0 |
defined $source ? : |
|
171
|
0 |
0 |
unless (-f $fn) |
|
177
|
0 |
0 |
unless (-e $dn and -M $dn < -M $fn and -s $dn == -s $fn) |
|
180
|
0 |
0 |
unless copy($fn, $dn) |
|
198
|
0 |
0 |
unless (ref $parser) |
|
200
|
0 |
0 |
if $@ |
|
203
|
0 |
0 |
unless $parser = $parser->new("skip_links", $skip_links) |
|
212
|
0 |
0 |
$source ? : |
|
214
|
0 |
0 |
unless (-f $fn) |
|
221
|
0 |
0 |
if ($dest) |
|
236
|
0 |
0 |
if defined $dn |
|
240
|
0 |
0 |
if $man->chapters |
|
267
|
0 |
0 |
if $manual->chapter("INHERITANCE") |
|
288
|
0 |
0 |
if $manual->isPurePod |
|
292
|
0 |
0 |
if $@ and not $@ =~ /can't locate/i and not $@ =~ /attempt to reload/i |
|
302
|
0 |
0 |
if ($manual->name ne $manual->package) |
|
304
|
0 |
0 |
if defined $main |
|
309
|
0 |
0 |
defined $uses{'isa'} ? : |
|
313
|
0 |
0 |
if ref $isa |
|
316
|
0 |
0 |
if (my $realizes = $uses{'realizes'}) |
|
320
|
0 |
0 |
if ref $to |
|
342
|
0 |
0 |
unless my $dest = $args{'workdir'} |
|
349
|
0 |
0 |
exists $args{'manifest'} ? : |
|
354
|
0 |
0 |
unless (ref $format) |
|
356
|
0 |
0 |
if exists $formatters{$format} |
|
359
|
0 |
0 |
if $@ |
|
379
|
0 |
0 |
ref $args{'select'} eq 'CODE' ? : |
|
|
0 |
0 |
!defined($args{'select'}) ? : |
|
384
|
0 |
0 |
unless &$select($manual) |
|
386
|
0 |
0 |
unless ($manual->chapters) |