| line |
true |
false |
branch |
|
31
|
0 |
0 |
unless $self->SUPER::init($args) |
|
40
|
0 |
0 |
if (my $ss = $self->{'OFH_style'} = delete $args->{'html_stylesheet'}) |
|
51
|
0 |
0 |
@_ ? : |
|
67
|
0 |
0 |
unless defined $text |
|
70
|
0 |
0 |
if ($object->isa('OODoc::Manual')) { } |
|
93
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
107
|
0 |
0 |
unless (defined $self->{'OFH_markers'}) |
|
109
|
0 |
0 |
unless my $mark = "IO::File"->new($markers, "w") |
|
123
|
0 |
0 |
if $verbose > 2 |
|
126
|
0 |
0 |
unless my $output = "IO::File"->new($cooked, "w") |
|
156
|
0 |
0 |
if (defined $source) { } |
|
157
|
0 |
0 |
unless -d $source |
|
162
|
0 |
0 |
unless -d $source |
|
173
|
0 |
0 |
if -f $fn |
|
186
|
0 |
0 |
if $verbose > 2 |
|
189
|
0 |
0 |
if ($raw =~ /$process/) { } |
|
191
|
0 |
0 |
unless my $output = "IO::File"->new($cooked, "w") |
|
204
|
0 |
0 |
unless copy($raw, $cooked) |
|
210
|
0 |
0 |
unless chmod $rawmode, $cooked |
|
225
|
0 |
0 |
if (ref $loc eq 'HASH') { } |
|
|
0 |
0 |
elsif (-d $loc) { } |
|
|
0 |
0 |
elsif (-f $loc) { } |
|
234
|
0 |
0 |
if -f $fn |
|
250
|
0 |
0 |
unless my $text = $args{'structure'} |
|
254
|
0 |
0 |
unless my $output = $args{'output'} |
|
255
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
273
|
0 |
0 |
unless $super->description =~ /^\s*$/ |
|
276
|
0 |
0 |
if (defined $super) |
|
285
|
0 |
0 |
if $examples eq "EXPAND" |
|
294
|
0 |
0 |
unless my $text = $args{'structure'} |
|
298
|
0 |
0 |
unless my $output = $args{'output'} |
|
299
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
310
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
314
|
0 |
0 |
if not $diags and @diags |
|
317
|
0 |
0 |
unless $diags |
|
319
|
0 |
0 |
if defined $diags |
|
328
|
0 |
0 |
unless my $examples = $args{'examples'} |
|
329
|
0 |
0 |
unless @$examples |
|
331
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
332
|
0 |
0 |
unless my $output = $args{'output'} |
|
354
|
0 |
0 |
unless my $diagnostics = $args{'diagnostics'} |
|
355
|
0 |
0 |
unless @$diagnostics |
|
357
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
358
|
0 |
0 |
unless my $output = $args{'output'} |
|
383
|
0 |
0 |
unless my $output = $args{'output'} |
|
384
|
0 |
0 |
unless my $sub = $args{'subroutine'} |
|
396
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
397
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
398
|
0 |
0 |
unless my $output = $args{'output'} |
|
408
|
0 |
0 |
if length $paramlist |
|
411
|
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' ? : |
|
428
|
0 |
0 |
if ($manual->inherited($subroutine)) |
|
439
|
0 |
0 |
unless my $output = $args{'output'} |
|
444
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
445
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
446
|
0 |
0 |
unless my $output = $args{'output'} |
|
449
|
0 |
0 |
$manual->inherited($subroutine) ? : |
|
456
|
0 |
0 |
$args{'last'} ? : |
|
463
|
0 |
0 |
unless my $output = $args{'output'} |
|
474
|
0 |
0 |
unless my $output = $args{'output'} |
|
475
|
0 |
0 |
unless my $option = $args{'option'} |
|
476
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
481
|
0 |
0 |
if length $params |
|
491
|
0 |
0 |
unless my $output = $args{'output'} |
|
492
|
0 |
0 |
unless my $option = $args{'option'} |
|
493
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
497
|
0 |
0 |
unless my $where = $option->findDescriptionObject |
|
500
|
0 |
0 |
if length $descr |
|
510
|
0 |
0 |
unless my $rows = $args{'rows'} |
|
511
|
0 |
0 |
unless @$rows |
|
513
|
0 |
0 |
unless my $head = $args{'header'} |
|
514
|
0 |
0 |
unless my $output = $args{'output'} |
|
531
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
532
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
535
|
0 |
0 |
unless length $text |
|
537
|
0 |
0 |
unless my $output = $args{'output'} |
|
540
|
0 |
0 |
unless my $extends = $self->extends |
|
541
|
0 |
0 |
unless my $refer = $extends->findDescriptionObject |
|
549
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
550
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
551
|
0 |
0 |
unless my $output = $args{'output'} |
|
602
|
0 |
0 |
unless my $manual = $self->manual |
|
615
|
0 |
0 |
unless my $manual = $self->manual |
|
626
|
0 |
0 |
defined $manual ? : |
|
633
|
0 |
0 |
defined $manual ? : |
|
646
|
0 |
0 |
unless my $manual = $self->manual |
|
650
|
0 |
0 |
unless my $chapter = $manual->chapter("NAME") |
|
655
|
0 |
0 |
if $descr =~ /^ \s*\S+\s*\-\s*(.*?)\s* $ /x |
|
673
|
0 |
0 |
unless keys %$attrs == 1 |
|
677
|
0 |
0 |
unless my $path = $path_lookup{$to} |
|
694
|
0 |
0 |
unless my $chapter = $manual->chapter("INHERITANCE") |
|
720
|
0 |
0 |
if defined $if and length $if |
|
724
|
0 |
0 |
unless defined $name |
|
729
|
0 |
0 |
unless defined $manual |
|
730
|
0 |
0 |
unless my $chapter = $manual->chapter($name) |
|
749
|
0 |
0 |
if defined $if and length $if |
|
753
|
0 |
0 |
unless defined $group |
|
760
|
0 |
0 |
unless ($start eq "ALL") |
|
765
|
0 |
0 |
unless ($types eq "ALL") |
|
766
|
0 |
0 |
$_ eq 'method' ? : |
|
777
|
0 |
0 |
if ($group eq 'SUBROUTINES') { } |
|
|
0 |
0 |
elsif ($group eq 'DIAGNOSTICS') { } |
|
|
0 |
0 |
elsif ($group eq 'DETAILS') { } |
|
|
0 |
0 |
elsif ($group eq 'MANUALS') { } |
|
795
|
0 |
0 |
unless my(@diags) = &$select($sub->diagnostics) |
|
814
|
0 |
0 |
unless my $details = $manual->chapter("DETAILS") |
|
819
|
0 |
0 |
if @subsect or $section->description |
|
823
|
0 |
0 |
unless @sections or length $details->description |
|
858
|
0 |
0 |
if defined $if and length $if |
|
862
|
0 |
0 |
unless defined $group |
|
867
|
0 |
0 |
unless my $manual = $self->manual |
|
871
|
0 |
0 |
unless ($types eq "ALL") |
|
872
|
0 |
0 |
$_ eq 'method' ? : |
|
881
|
0 |
0 |
if ($group eq 'ALL') { } |
|
883
|
0 |
0 |
if (not @subs or $show_sub eq 'NO') { } |
|
|
0 |
0 |
elsif ($show_sub eq 'COUNT') { } |
|
890
|
0 |
0 |
unless my $chapter = $manual->chapter($group) |
|
892
|
0 |
0 |
$show_sec eq 'NO' ? : |
|
894
|
0 |
0 |
@sections ? : |
|
901
|
0 |
0 |
@subs && $show_sub eq 'COUNT' ? : |
|
903
|
0 |
0 |
if ($show_sec eq 'NO') { } |
|
|
0 |
0 |
elsif ($show_sec eq 'LINK' or $show_sec eq 'NAME') { } |
|
906
|
0 |
0 |
if (not @subs) { } |
|
|
0 |
0 |
elsif ($show_sec eq 'LINK') { } |
|
|
0 |
0 |
elsif ($show_sec eq 'NAME') { } |
|
915
|
0 |
0 |
if @subs and $show_sub eq "LIST" |
|
927
|
0 |
0 |
$show_sub eq 'COUNT' ? : |
|
|
0 |
0 |
!@subs ? : |
|
931
|
0 |
0 |
if ($show_sec eq 'LINK') { } |
|
939
|
0 |
0 |
if $show_sub eq "LIST" and @subs |
|
945
|
0 |
0 |
if $show_sec eq "LINK" or $show_sec eq "NAME" |