| line |
true |
false |
branch |
|
40
|
0 |
0 |
unless $self->SUPER::init($args) |
|
49
|
0 |
0 |
if (my $ss = delete $args->{'html_stylesheet'}) |
|
64
|
0 |
0 |
if (@_ == 2) { } |
|
65
|
0 |
0 |
if (@_ == 2) { } |
|
66
|
0 |
0 |
if (@_ == 2) { } |
|
92
|
0 |
0 |
if ($object->isa('OODoc::Manual')) { } |
|
115
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
128
|
0 |
0 |
unless (defined $self->markers) |
|
130
|
0 |
0 |
unless open my $mark, ">:encoding(UTF-8)", $markers |
|
144
|
0 |
0 |
if $verbose > 2 |
|
147
|
0 |
0 |
unless open my $output, ">:encoding(UTF-8)", $cooked |
|
173
|
0 |
0 |
if (defined $source) { } |
|
174
|
0 |
0 |
unless -d $source |
|
179
|
0 |
0 |
unless -d $source |
|
192
|
0 |
0 |
if -f $fn |
|
203
|
0 |
0 |
if $verbose > 2 |
|
206
|
0 |
0 |
if ($raw =~ /$process/) { } |
|
208
|
0 |
0 |
unless open my $output, ">:encoding(UTF-8)", $cooked |
|
216
|
0 |
0 |
unless copy($raw, $cooked) |
|
221
|
0 |
0 |
unless chmod $rawmode, $cooked |
|
235
|
0 |
0 |
if (ref $loc eq 'HASH') { } |
|
|
0 |
0 |
elsif (-d $loc) { } |
|
|
0 |
0 |
elsif (-f $loc) { } |
|
246
|
0 |
0 |
if -f $fn |
|
260
|
0 |
0 |
unless my $text = $args{'structure'} |
|
264
|
0 |
0 |
unless my $output = $args{'output'} |
|
265
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
279
|
0 |
0 |
unless $super->description =~ /^\s*$/ |
|
282
|
0 |
0 |
if (defined $super) |
|
289
|
0 |
0 |
if $examples eq "EXPAND" |
|
299
|
0 |
0 |
unless my $text = $args{'structure'} |
|
303
|
0 |
0 |
unless my $output = $args{'output'} |
|
304
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
315
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
319
|
0 |
0 |
if not $diags and @diags |
|
322
|
0 |
0 |
unless $diags |
|
324
|
0 |
0 |
if defined $diags |
|
333
|
0 |
0 |
unless my $examples = $args{'examples'} |
|
334
|
0 |
0 |
unless @$examples |
|
336
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
337
|
0 |
0 |
unless my $output = $args{'output'} |
|
359
|
0 |
0 |
unless my $diagnostics = $args{'diagnostics'} |
|
360
|
0 |
0 |
unless @$diagnostics |
|
362
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
363
|
0 |
0 |
unless my $output = $args{'output'} |
|
387
|
0 |
0 |
unless my $output = $args{'output'} |
|
388
|
0 |
0 |
unless my $sub = $args{'subroutine'} |
|
400
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
401
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
402
|
0 |
0 |
unless my $output = $args{'output'} |
|
411
|
0 |
0 |
length $paramlist ? : |
|
413
|
0 |
0 |
$type eq 'tie' ? : |
|
|
0 |
0 |
$type eq 'function' ? : |
|
|
0 |
0 |
$type eq 'overload' ? : |
|
|
0 |
0 |
$type eq 'ci_method' ? : |
|
|
0 |
0 |
$type eq 'c_method' ? : |
|
|
0 |
0 |
$type eq 'i_method' ? : |
|
422
|
0 |
0 |
$manual->inherited($subroutine) ? : |
|
430
|
0 |
0 |
if ($is_inherited) |
|
442
|
0 |
0 |
unless my $output = $args{'output'} |
|
448
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
449
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
450
|
0 |
0 |
unless my $output = $args{'output'} |
|
453
|
0 |
0 |
$manual->inherited($subroutine) ? : |
|
454
|
0 |
0 |
$args{'last'} ? : |
|
459
|
0 |
0 |
unless my $output = $args{'output'} |
|
469
|
0 |
0 |
unless my $output = $args{'output'} |
|
470
|
0 |
0 |
unless my $option = $args{'option'} |
|
471
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
474
|
0 |
0 |
if length $params |
|
487
|
0 |
0 |
unless my $output = $args{'output'} |
|
488
|
0 |
0 |
unless my $option = $args{'option'} |
|
489
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
493
|
0 |
0 |
unless my $where = $option->findDescriptionObject |
|
496
|
0 |
0 |
if length $descr |
|
506
|
0 |
0 |
unless my $rows = $args{'rows'} |
|
507
|
0 |
0 |
unless @$rows |
|
509
|
0 |
0 |
unless my $head = $args{'header'} |
|
510
|
0 |
0 |
unless my $output = $args{'output'} |
|
527
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
528
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
529
|
0 |
0 |
unless my $output = $args{'output'} |
|
533
|
0 |
0 |
$extends ? : |
|
|
0 |
0 |
if (my $refer = $extends ? $extends->findDescriptionObject : undef) { } |
|
536
|
0 |
0 |
length $text ? : |
|
547
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
548
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
549
|
0 |
0 |
unless my $output = $args{'output'} |
|
602
|
0 |
0 |
unless my $manual = $self->manual |
|
614
|
0 |
0 |
unless my $manual = $self->manual |
|
624
|
0 |
0 |
defined $manual ? : |
|
631
|
0 |
0 |
defined $manual ? : |
|
644
|
0 |
0 |
unless my $manual = $self->manual |
|
647
|
0 |
0 |
unless my $chapter = $manual->chapter("NAME") |
|
652
|
0 |
0 |
if $descr =~ /^ \s*\S+\s*\-\s*(.*?)\s* $ /x |
|
670
|
0 |
0 |
unless keys %$attrs == 1 |
|
673
|
0 |
0 |
unless my $path = $path_lookup{$to} |
|
691
|
0 |
0 |
unless my $chapter = $manual->chapter("INHERITANCE") |
|
713
|
0 |
0 |
if defined $if and length $if |
|
717
|
0 |
0 |
unless defined $name |
|
721
|
0 |
0 |
unless defined $manual |
|
722
|
0 |
0 |
unless my $chapter = $manual->chapter($name) |
|
735
|
0 |
0 |
if defined $if and length $if |
|
738
|
0 |
0 |
unless my $group = &first(sub {
not /[a-z]/;
}
, keys %$attrs) |
|
745
|
0 |
0 |
if ($start ne "ALL") |
|
751
|
0 |
0 |
if ($types ne "ALL") |
|
752
|
0 |
0 |
if ($_ eq 'method') { } |
|
763
|
0 |
0 |
if ($group eq 'SUBROUTINES') { } |
|
|
0 |
0 |
elsif ($group eq 'DIAGNOSTICS') { } |
|
|
0 |
0 |
elsif ($group eq 'DETAILS') { } |
|
|
0 |
0 |
elsif ($group eq 'MANUALS') { } |
|
780
|
0 |
0 |
unless my(@diags) = &$select($sub->diagnostics) |
|
800
|
0 |
0 |
unless my $details = $manual->chapter("DETAILS") |
|
804
|
0 |
0 |
if @subsect or $section->description |
|
808
|
0 |
0 |
unless @sections or length $details->description |
|
838
|
0 |
0 |
if defined $if and length $if |
|
842
|
0 |
0 |
unless defined $group |
|
847
|
0 |
0 |
unless my $manual = $self->manual |
|
851
|
0 |
0 |
unless ($types eq "ALL") |
|
852
|
0 |
0 |
if ($_ eq 'method') { } |
|
860
|
0 |
0 |
if ($group eq 'ALL') { } |
|
862
|
0 |
0 |
if (not @subs or $show_sub eq 'NO') { } |
|
|
0 |
0 |
elsif ($show_sub eq 'COUNT') { } |
|
869
|
0 |
0 |
unless my $chapter = $manual->chapter($group) |
|
871
|
0 |
0 |
$show_sec eq 'NO' ? : |
|
873
|
0 |
0 |
@sections ? : |
|
878
|
0 |
0 |
@subs && $show_sub eq 'COUNT' ? : |
|
880
|
0 |
0 |
if ($show_sec eq 'NO') { } |
|
|
0 |
0 |
elsif ($show_sec eq 'LINK' or $show_sec eq 'NAME') { } |
|
883
|
0 |
0 |
if (not @subs) { } |
|
|
0 |
0 |
elsif ($show_sec eq 'LINK') { } |
|
|
0 |
0 |
elsif ($show_sec eq 'NAME') { } |
|
892
|
0 |
0 |
if @subs and $show_sub eq "LIST" |
|
904
|
0 |
0 |
$show_sub eq 'COUNT' ? : |
|
|
0 |
0 |
!@subs ? : |
|
909
|
0 |
0 |
if ($show_sec eq 'LINK') { } |
|
917
|
0 |
0 |
if $show_sub eq "LIST" and @subs |
|
923
|
0 |
0 |
if $show_sec eq "LINK" or $show_sec eq "NAME" |