| line |
true |
false |
branch |
|
40
|
0 |
0 |
unless $self->SUPER::init($args) |
|
43
|
0 |
0 |
unless my $distribution = $self->{'O_distribution'} = delete $args->{'distribution'} |
|
48
|
0 |
0 |
unless (defined $version) |
|
49
|
0 |
0 |
-f 'VERSION' ? : |
|
|
0 |
0 |
-f 'version' ? : |
|
50
|
0 |
0 |
if (defined $fn) |
|
51
|
0 |
0 |
unless open my $v, "<:encoding(UTF-8)", $fn |
|
54
|
0 |
0 |
if $version =~ /(\d+\.[\d\.]+)/ |
|
59
|
0 |
0 |
unless $self->{'O_version'} = $version |
|
89
|
0 |
0 |
$ftype eq 'ARRAY' ? : |
|
|
0 |
0 |
$ftype eq 'CODE' ? : |
|
|
0 |
0 |
$ftype eq 'REGEXP' ? : |
|
93
|
0 |
0 |
if builtin::reftype($select) eq "ARRAY" |
|
98
|
0 |
0 |
if (&$select($fn)) { } |
|
114
|
0 |
0 |
unless (defined $version) |
|
115
|
0 |
0 |
defined $source ? : |
|
116
|
0 |
0 |
defined $source ? : |
|
|
0 |
0 |
-f $fn ? : |
|
119
|
0 |
0 |
if (defined $fn) { } |
|
|
0 |
0 |
elsif ($version = $self->version) { } |
|
120
|
0 |
0 |
unless open my $v, "<:encoding(UTF-8)", $fn |
|
123
|
0 |
0 |
if $version =~ /(\d+\.[\d\.]+)/ |
|
133
|
0 |
0 |
if ($notice = $args{'notice'}) |
|
144
|
0 |
0 |
defined $source ? : |
|
|
0 |
0 |
exists $args{'manifest'} ? : |
|
150
|
0 |
0 |
if (defined $dest) { } |
|
168
|
0 |
0 |
if (defined $dest) |
|
170
|
0 |
0 |
defined $source ? : |
|
173
|
0 |
0 |
unless (-f $fn) |
|
178
|
0 |
0 |
unless (-e $dn and -M $dn < -M $fn and -s $dn == -s $fn) |
|
181
|
0 |
0 |
unless copy($fn, $dn) |
|
197
|
0 |
0 |
unless (builtin::blessed($parser)) |
|
198
|
0 |
0 |
if $parser eq "markov" |
|
201
|
0 |
0 |
if $@ |
|
203
|
0 |
0 |
unless $parser = $parser->new("skip_links", delete $args{'skip_links'}, "index", $self->index) |
|
212
|
0 |
0 |
$source ? : |
|
214
|
0 |
0 |
unless -f $fn |
|
218
|
0 |
0 |
if ($dest) |
|
233
|
0 |
0 |
if defined $dn |
|
237
|
0 |
0 |
if $man->chapters |
|
276
|
0 |
0 |
if $manual->isPurePod |
|
280
|
0 |
0 |
if $@ and not $@ =~ /can't locate/i and not $@ =~ /attempt to reload/i |
|
291
|
0 |
0 |
if ($manual->name ne $manual->package) |
|
293
|
0 |
0 |
if defined $main |
|
298
|
0 |
0 |
defined $uses{'isa'} ? : |
|
302
|
0 |
0 |
if builtin::blessed($isa) |
|
305
|
0 |
0 |
if (my $realizes = $uses{'realizes'}) |
|
309
|
0 |
0 |
if builtin::blessed($to) |
|
321
|
0 |
0 |
unless my $dest = delete $args{'workdir'} |
|
330
|
0 |
0 |
if builtin::blessed($format) and $format->isa("OODoc::Format") |
|
376
|
0 |
0 |
$dirs[0] eq '' ? : |
|
380
|
0 |
0 |
unless -d $path or mkdir $path |