| 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'}) |
|
49
|
0 |
0 |
@_ ? : |
|
65
|
0 |
0 |
unless defined $text |
|
68
|
0 |
0 |
if ($object->isa('OODoc::Manual')) { } |
|
91
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
105
|
0 |
0 |
unless (defined $self->{'OFH_markers'}) |
|
107
|
0 |
0 |
unless my $mark = 'IO::File'->new($markers, 'w') |
|
121
|
0 |
0 |
if $verbose > 2 |
|
124
|
0 |
0 |
unless my $output = 'IO::File'->new($cooked, 'w') |
|
154
|
0 |
0 |
if (defined $source) { } |
|
155
|
0 |
0 |
unless -d $source |
|
160
|
0 |
0 |
unless -d $source |
|
171
|
0 |
0 |
if -f $fn |
|
184
|
0 |
0 |
if $verbose > 2 |
|
187
|
0 |
0 |
if ($raw =~ /$process/) { } |
|
189
|
0 |
0 |
unless my $output = 'IO::File'->new($cooked, 'w') |
|
202
|
0 |
0 |
unless copy($raw, $cooked) |
|
208
|
0 |
0 |
unless chmod $rawmode, $cooked |
|
223
|
0 |
0 |
if (ref $loc eq 'HASH') { } |
|
|
0 |
0 |
elsif (-d $loc) { } |
|
|
0 |
0 |
elsif (-f $loc) { } |
|
232
|
0 |
0 |
if -f $fn |
|
248
|
0 |
0 |
unless my $text = $args{'structure'} |
|
252
|
0 |
0 |
unless my $output = $args{'output'} |
|
253
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
271
|
0 |
0 |
unless $super->description =~ /^\s*$/ |
|
274
|
0 |
0 |
if (defined $super) |
|
283
|
0 |
0 |
if $examples eq 'EXPAND' |
|
292
|
0 |
0 |
unless my $text = $args{'structure'} |
|
296
|
0 |
0 |
unless my $output = $args{'output'} |
|
297
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
308
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
312
|
0 |
0 |
if not $diags and @diags |
|
315
|
0 |
0 |
unless $diags |
|
317
|
0 |
0 |
if defined $diags |
|
326
|
0 |
0 |
unless my $examples = $args{'examples'} |
|
327
|
0 |
0 |
unless @$examples |
|
329
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
330
|
0 |
0 |
unless my $output = $args{'output'} |
|
352
|
0 |
0 |
unless my $diagnostics = $args{'diagnostics'} |
|
353
|
0 |
0 |
unless @$diagnostics |
|
355
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
356
|
0 |
0 |
unless my $output = $args{'output'} |
|
381
|
0 |
0 |
unless my $output = $args{'output'} |
|
382
|
0 |
0 |
unless my $sub = $args{'subroutine'} |
|
394
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
395
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
396
|
0 |
0 |
unless my $output = $args{'output'} |
|
406
|
0 |
0 |
if length $paramlist |
|
409
|
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' ? : |
|
426
|
0 |
0 |
if ($manual->inherited($subroutine)) |
|
437
|
0 |
0 |
unless my $output = $args{'output'} |
|
442
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
443
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
444
|
0 |
0 |
unless my $output = $args{'output'} |
|
447
|
0 |
0 |
$manual->inherited($subroutine) ? : |
|
454
|
0 |
0 |
$args{'last'} ? : |
|
461
|
0 |
0 |
unless my $output = $args{'output'} |
|
472
|
0 |
0 |
unless my $output = $args{'output'} |
|
473
|
0 |
0 |
unless my $option = $args{'option'} |
|
474
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
479
|
0 |
0 |
if length $params |
|
489
|
0 |
0 |
unless my $output = $args{'output'} |
|
490
|
0 |
0 |
unless my $option = $args{'option'} |
|
491
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
495
|
0 |
0 |
unless my $where = $option->findDescriptionObject |
|
498
|
0 |
0 |
if length $descr |
|
508
|
0 |
0 |
unless my $rows = $args{'rows'} |
|
509
|
0 |
0 |
unless @$rows |
|
511
|
0 |
0 |
unless my $head = $args{'header'} |
|
512
|
0 |
0 |
unless my $output = $args{'output'} |
|
529
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
530
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
533
|
0 |
0 |
unless length $text |
|
535
|
0 |
0 |
unless my $output = $args{'output'} |
|
538
|
0 |
0 |
unless my $extends = $self->extends |
|
539
|
0 |
0 |
unless my $refer = $extends->findDescriptionObject |
|
547
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
548
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
549
|
0 |
0 |
unless my $output = $args{'output'} |
|
600
|
0 |
0 |
unless my $manual = $self->manual |
|
613
|
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 |
|
648
|
0 |
0 |
unless my $chapter = $manual->chapter('NAME') |
|
653
|
0 |
0 |
if $descr =~ /^ \s*\S+\s*\-\s*(.*?)\s* $ /x |
|
671
|
0 |
0 |
unless keys %$attrs == 1 |
|
675
|
0 |
0 |
unless my $path = $path_lookup{$to} |
|
692
|
0 |
0 |
unless my $chapter = $manual->chapter('INHERITANCE') |
|
718
|
0 |
0 |
if defined $if and length $if |
|
722
|
0 |
0 |
unless defined $name |
|
727
|
0 |
0 |
unless defined $manual |
|
728
|
0 |
0 |
unless my $chapter = $manual->chapter($name) |
|
747
|
0 |
0 |
if defined $if and length $if |
|
751
|
0 |
0 |
unless defined $group |
|
758
|
0 |
0 |
unless ($start eq 'ALL') |
|
763
|
0 |
0 |
unless ($types eq 'ALL') |
|
764
|
0 |
0 |
$_ eq 'method' ? : |
|
775
|
0 |
0 |
if ($group eq 'SUBROUTINES') { } |
|
|
0 |
0 |
elsif ($group eq 'DIAGNOSTICS') { } |
|
|
0 |
0 |
elsif ($group eq 'DETAILS') { } |
|
|
0 |
0 |
elsif ($group eq 'MANUALS') { } |
|
793
|
0 |
0 |
unless my(@diags) = &$select($sub->diagnostics) |
|
812
|
0 |
0 |
unless my $details = $manual->chapter('DETAILS') |
|
817
|
0 |
0 |
if @subsect or $section->description |
|
821
|
0 |
0 |
unless @sections or length $details->description |
|
856
|
0 |
0 |
if defined $if and length $if |
|
860
|
0 |
0 |
unless defined $group |
|
865
|
0 |
0 |
unless my $manual = $self->manual |
|
869
|
0 |
0 |
unless ($types eq 'ALL') |
|
870
|
0 |
0 |
$_ eq 'method' ? : |
|
879
|
0 |
0 |
if ($group eq 'ALL') { } |
|
881
|
0 |
0 |
if (not @subs or $show_sub eq 'NO') { } |
|
|
0 |
0 |
elsif ($show_sub eq 'COUNT') { } |
|
888
|
0 |
0 |
unless my $chapter = $manual->chapter($group) |
|
890
|
0 |
0 |
$show_sec eq 'NO' ? : |
|
892
|
0 |
0 |
@sections ? : |
|
899
|
0 |
0 |
@subs && $show_sub eq 'COUNT' ? : |
|
901
|
0 |
0 |
if ($show_sec eq 'NO') { } |
|
|
0 |
0 |
elsif ($show_sec eq 'LINK' or $show_sec eq 'NAME') { } |
|
904
|
0 |
0 |
if (not @subs) { } |
|
|
0 |
0 |
elsif ($show_sec eq 'LINK') { } |
|
|
0 |
0 |
elsif ($show_sec eq 'NAME') { } |
|
913
|
0 |
0 |
if @subs and $show_sub eq 'LIST' |
|
925
|
0 |
0 |
$show_sub eq 'COUNT' ? : |
|
|
0 |
0 |
!@subs ? : |
|
929
|
0 |
0 |
if ($show_sec eq 'LINK') { } |
|
937
|
0 |
0 |
if $show_sub eq 'LIST' and @subs |
|
943
|
0 |
0 |
if $show_sec eq 'LINK' or $show_sec eq 'NAME' |