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