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' |