| line |
true |
false |
branch |
|
16
|
0 |
2 |
if (defined &Pod::Simple::HTMLBatch::DEBUG) { } |
|
|
2 |
0 |
elsif (defined &Pod::Simple::DEBUG) { } |
|
50
|
0 |
0 |
unless @ARGV == 2 |
|
55
|
0 |
0 |
if (defined $ARGV[1] and length $ARGV[1]) |
|
57
|
0 |
0 |
unless -e $d |
|
58
|
0 |
0 |
unless -d $d |
|
59
|
0 |
0 |
unless -w $d |
|
108
|
0 |
10 |
if ($self->verbose) |
|
119
|
0 |
1 |
unless ref $self |
|
121
|
0 |
1 |
if (not defined $dirs or $dirs eq '' or $dirs eq '@INC') { } |
|
|
1 |
0 |
elsif (ref $dirs) { } |
|
134
|
0 |
1 |
unless defined $outdir and length $outdir |
|
153
|
0 |
1 |
if (not $progress and $self->verbose > 0 and $self->verbose <= 5) |
|
155
|
0 |
0 |
$self->verbose == 2 ? : |
|
|
0 |
0 |
$self->verbose < 2 ? : |
|
163
|
1 |
0 |
if ($dirs) { } |
|
168
|
1 |
0 |
$dirs ? : |
|
172
|
0 |
1 |
unless ($total) |
|
177
|
0 |
1 |
if $progress |
|
178
|
0 |
1 |
$total > 25 ? : |
|
188
|
0 |
1 |
if $progress |
|
201
|
0 |
10 |
if $SLEEPY |
|
212
|
0 |
1 |
if $self->progress |
|
227
|
0 |
10 |
unless @namelets |
|
246
|
10 |
0 |
if $page->can("batch_mode_page_object_init") |
|
249
|
10 |
0 |
if $self->can("batch_mode_page_object_init") |
|
255
|
0 |
10 |
if $progress |
|
257
|
10 |
0 |
if ($retval = $page->parse_from_file($infile, $outfile)) { } |
|
264
|
0 |
10 |
if $page->can("batch_mode_page_object_kill") |
|
267
|
0 |
10 |
if $self->can("batch_mode_page_object_kill") |
|
279
|
28 |
0 |
unless $_[0]{'_filespecsys'} |
|
289
|
10 |
0 |
if ($self->contents_file) |
|
313
|
1 |
0 |
if ($Contents) { } |
|
334
|
1 |
0 |
if ($css_wad) |
|
339
|
1 |
0 |
if ($javascript_wad) |
|
344
|
0 |
1 |
unless (print $Contents $starter, "\n") |
|
381
|
0 |
1 |
unless (print $Contents "\n", $self->contents_page_end || '') |
|
387
|
0 |
1 |
unless close $Contents |
|
401
|
2 |
8 |
$entry->[0] =~ /^perl\w*$/ ? : |
|
415
|
0 |
0 |
unless $fgroup->{$b} <=> $fgroup->{$a} |
|
422
|
1 |
0 |
if wantarray |
|
431
|
0 |
1 |
unless $outfile |
|
439
|
5 |
5 |
unless @$namelets > 1 |
|
442
|
2 |
3 |
if (-e $dir) |
|
443
|
0 |
2 |
unless -d $dir |
|
447
|
0 |
3 |
unless mkdir $dir, 511 |
|
479
|
0 |
10 |
if $self->no_contents_links |
|
481
|
10 |
0 |
if $self->contents_file |
|
495
|
0 |
10 |
if $self->no_contents_links |
|
497
|
10 |
0 |
if $self->contents_file |
|
535
|
0 |
1 |
if $self->progress |
|
537
|
1 |
0 |
$dirs ? : |
|
538
|
1 |
0 |
$dirs ? : |
|
540
|
0 |
1 |
unless $m2p |
|
543
|
0 |
1 |
unless keys %$m2p |
|
567
|
13 |
0 |
if open $out_fh, "> $outpath" |
|
576
|
0 |
11 |
unless $url |
|
577
|
0 |
11 |
unless ($name) |
|
580
|
0 |
0 |
if (not $name =~ /\?/ and $name =~ m[([^/]+)$]s) |
|
589
|
0 |
11 |
if ($is_default) { } |
|
599
|
0 |
1 |
unless $self->css_flurry |
|
606
|
11 |
0 |
if (ref $chunk->[-1] and $url =~ /^(_[-a-z0-9_]+\.css$)/) { } |
|
617
|
0 |
11 |
unless print $Cssout ${$chunk->[-1];} |
|
631
|
0 |
11 |
unless $self->_css_wad |
|
632
|
0 |
11 |
unless @css |
|
638
|
5 |
6 |
$depth ? : |
|
641
|
0 |
121 |
unless $chunk and @$chunk |
|
660
|
132 |
0 |
$url =~ m[^\./] || !($url =~ m[[/\:]]) ? : |
|
693
|
9 |
0 |
if $outname =~ s/^([012])([012])([[012])([a-z]*)=?//s |
|
695
|
3 |
6 |
if "010" eq join("", @swap) |
|
702
|
5 |
4 |
if ($flipmode =~ /n/) |
|
706
|
6 |
3 |
if @swap |
|
708
|
2 |
7 |
if ($flipmode =~ /a/) { } |
|
|
2 |
5 |
elsif ($flipmode =~ /b/) { } |
|
750
|
0 |
1 |
unless $url |
|
759
|
0 |
1 |
unless $self->javascript_flurry |
|
767
|
1 |
0 |
if (ref $script->[-1] and $url =~ /^(_[-a-z0-9_]+\.js$)/) { } |
|
778
|
0 |
1 |
unless print $Jsout ${$script->[-1];} |
|
797
|
0 |
11 |
unless $self->_javascript_wad |
|
798
|
0 |
11 |
unless @scripts |
|
803
|
5 |
6 |
$depth ? : |
|
806
|
0 |
11 |
unless $s and @$s |