| line |
true |
false |
branch |
|
29
|
0 |
0 |
unless $self->SUPER::init($args) |
|
38
|
0 |
0 |
if (my $ss = $$self{'OFH_style'} = delete $$args{'html_stylesheet'}) |
|
48
|
0 |
0 |
@_ ? : |
|
64
|
0 |
0 |
unless defined $text |
|
67
|
0 |
0 |
if ($object->isa('OODoc::Manual')) { } |
|
90
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
104
|
0 |
0 |
unless (defined $$self{'OFH_markers'}) |
|
106
|
0 |
0 |
unless my $mark = 'IO::File'->new($markers, 'w') |
|
120
|
0 |
0 |
if $verbose > 2 |
|
123
|
0 |
0 |
unless my $output = 'IO::File'->new($cooked, 'w') |
|
153
|
0 |
0 |
if (defined $source) { } |
|
154
|
0 |
0 |
unless -d $source |
|
159
|
0 |
0 |
unless -d $source |
|
170
|
0 |
0 |
if -f $fn |
|
183
|
0 |
0 |
if $verbose > 2 |
|
186
|
0 |
0 |
if ($raw =~ /$process/) { } |
|
188
|
0 |
0 |
unless my $output = 'IO::File'->new($cooked, 'w') |
|
201
|
0 |
0 |
unless copy($raw, $cooked) |
|
207
|
0 |
0 |
unless chmod $rawmode, $cooked |
|
222
|
0 |
0 |
if (ref $loc eq 'HASH') { } |
|
|
0 |
0 |
elsif (-d $loc) { } |
|
|
0 |
0 |
elsif (-f $loc) { } |
|
231
|
0 |
0 |
if -f $fn |
|
247
|
0 |
0 |
unless my $text = $args{'structure'} |
|
251
|
0 |
0 |
unless my $output = $args{'output'} |
|
252
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
270
|
0 |
0 |
unless $super->description =~ /^\s*$/ |
|
273
|
0 |
0 |
if (defined $super) |
|
282
|
0 |
0 |
if $examples eq 'EXPAND' |
|
291
|
0 |
0 |
unless my $text = $args{'structure'} |
|
295
|
0 |
0 |
unless my $output = $args{'output'} |
|
296
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
307
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
311
|
0 |
0 |
if not $diags and @diags |
|
314
|
0 |
0 |
unless $diags |
|
316
|
0 |
0 |
if defined $diags |
|
325
|
0 |
0 |
unless my $examples = $args{'examples'} |
|
326
|
0 |
0 |
unless @$examples |
|
328
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
329
|
0 |
0 |
unless my $output = $args{'output'} |
|
351
|
0 |
0 |
unless my $diagnostics = $args{'diagnostics'} |
|
352
|
0 |
0 |
unless @$diagnostics |
|
354
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
355
|
0 |
0 |
unless my $output = $args{'output'} |
|
380
|
0 |
0 |
unless my $output = $args{'output'} |
|
381
|
0 |
0 |
unless my $sub = $args{'subroutine'} |
|
393
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
394
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
395
|
0 |
0 |
unless my $output = $args{'output'} |
|
405
|
0 |
0 |
if length $paramlist |
|
408
|
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' ? : |
|
425
|
0 |
0 |
if ($manual->inherited($subroutine)) |
|
436
|
0 |
0 |
unless my $output = $args{'output'} |
|
441
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
442
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
443
|
0 |
0 |
unless my $output = $args{'output'} |
|
446
|
0 |
0 |
$manual->inherited($subroutine) ? : |
|
451
|
0 |
0 |
$args{'last'} ? : |
|
460
|
0 |
0 |
unless my $output = $args{'output'} |
|
471
|
0 |
0 |
unless my $output = $args{'output'} |
|
472
|
0 |
0 |
unless my $option = $args{'option'} |
|
473
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
478
|
0 |
0 |
if length $params |
|
488
|
0 |
0 |
unless my $output = $args{'output'} |
|
489
|
0 |
0 |
unless my $option = $args{'option'} |
|
490
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
494
|
0 |
0 |
unless my $where = $option->findDescriptionObject |
|
497
|
0 |
0 |
if length $descr |
|
507
|
0 |
0 |
unless my $rows = $args{'rows'} |
|
508
|
0 |
0 |
unless @$rows |
|
510
|
0 |
0 |
unless my $head = $args{'header'} |
|
511
|
0 |
0 |
unless my $output = $args{'output'} |
|
528
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
529
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
532
|
0 |
0 |
unless length $text |
|
534
|
0 |
0 |
unless my $output = $args{'output'} |
|
537
|
0 |
0 |
unless my $extends = $self->extends |
|
538
|
0 |
0 |
unless my $refer = $extends->findDescriptionObject |
|
546
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
547
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
548
|
0 |
0 |
unless my $output = $args{'output'} |
|
599
|
0 |
0 |
unless my $manual = $self->manual |
|
612
|
0 |
0 |
unless my $manual = $self->manual |
|
623
|
0 |
0 |
defined $manual ? : |
|
630
|
0 |
0 |
defined $manual ? : |
|
643
|
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 |
|
674
|
0 |
0 |
unless my $path = $path_lookup{$to} |
|
691
|
0 |
0 |
unless my $chapter = $manual->chapter('INHERITANCE') |
|
717
|
0 |
0 |
if defined $if and length $if |
|
721
|
0 |
0 |
unless defined $name |
|
726
|
0 |
0 |
unless defined $manual |
|
727
|
0 |
0 |
unless my $chapter = $manual->chapter($name) |
|
746
|
0 |
0 |
if defined $if and length $if |
|
750
|
0 |
0 |
unless defined $group |
|
757
|
0 |
0 |
unless ($start eq 'ALL') |
|
762
|
0 |
0 |
unless ($types eq 'ALL') |
|
763
|
0 |
0 |
$_ eq 'method' ? : |
|
774
|
0 |
0 |
if ($group eq 'SUBROUTINES') { } |
|
|
0 |
0 |
elsif ($group eq 'DIAGNOSTICS') { } |
|
|
0 |
0 |
elsif ($group eq 'DETAILS') { } |
|
|
0 |
0 |
elsif ($group eq 'MANUALS') { } |
|
792
|
0 |
0 |
unless my(@diags) = &$select($sub->diagnostics) |
|
811
|
0 |
0 |
unless my $details = $manual->chapter('DETAILS') |
|
813
|
0 |
0 |
unless @sections or length $details->description |
|
847
|
0 |
0 |
if defined $if and length $if |
|
851
|
0 |
0 |
unless defined $group |
|
856
|
0 |
0 |
unless my $manual = $self->manual |
|
860
|
0 |
0 |
unless ($types eq 'ALL') |
|
861
|
0 |
0 |
$_ eq 'method' ? : |
|
870
|
0 |
0 |
if ($group eq 'ALL') { } |
|
872
|
0 |
0 |
if (not @subs or $show_sub eq 'NO') { } |
|
|
0 |
0 |
elsif ($show_sub eq 'COUNT') { } |
|
879
|
0 |
0 |
unless my $chapter = $manual->chapter($group) |
|
881
|
0 |
0 |
$show_sec eq 'NO' ? : |
|
883
|
0 |
0 |
@sections ? : |
|
890
|
0 |
0 |
@subs && $show_sub eq 'COUNT' ? : |
|
892
|
0 |
0 |
if ($show_sec eq 'NO') { } |
|
|
0 |
0 |
elsif ($show_sec eq 'LINK' or $show_sec eq 'NAME') { } |
|
895
|
0 |
0 |
if (not @subs) { } |
|
|
0 |
0 |
elsif ($show_sec eq 'LINK') { } |
|
|
0 |
0 |
elsif ($show_sec eq 'NAME') { } |
|
904
|
0 |
0 |
if @subs and $show_sub eq 'LIST' |
|
916
|
0 |
0 |
$show_sub eq 'COUNT' ? : |
|
|
0 |
0 |
!@subs ? : |
|
920
|
0 |
0 |
if ($show_sec eq 'LINK') { } |
|
928
|
0 |
0 |
if $show_sub eq 'LIST' and @subs |
|
934
|
0 |
0 |
if $show_sec eq 'LINK' or $show_sec eq 'NAME' |