| line |
true |
false |
branch |
|
24
|
0 |
0 |
if $object->isa('OODoc::Text::Option') |
|
25
|
0 |
0 |
if $object->isa('OODoc::Text::Default') |
|
26
|
0 |
0 |
if $object->isa('OODoc::Text::Example') |
|
27
|
0 |
0 |
if $object->isa('OODoc::Text::Subroutine') |
|
28
|
0 |
0 |
defined $text ? : |
|
30
|
0 |
0 |
if $object->isa('OODoc::Manual') |
|
33
|
0 |
0 |
unless $object->isa('OODoc::Text::Structure') |
|
36
|
0 |
0 |
defined $manual ? : |
|
43
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
53
|
0 |
0 |
unless my $output = 'IO::File'->new($tmpfile, 'w') |
|
96
|
0 |
0 |
if (not defined $append) { } |
|
|
0 |
0 |
elsif (ref $append eq 'CODE') { } |
|
99
|
0 |
0 |
unless my $output = $args{'output'} |
|
110
|
0 |
0 |
unless my $text = $args{'structure'} |
|
114
|
0 |
0 |
unless my $output = $args{'output'} |
|
115
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
121
|
0 |
0 |
if $examples eq 'EXPAND' |
|
130
|
0 |
0 |
unless my $text = $args{'structure'} |
|
134
|
0 |
0 |
unless my $output = $args{'output'} |
|
135
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
147
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
150
|
0 |
0 |
unless defined $details |
|
152
|
0 |
0 |
unless my $output = $args{'output'} |
|
159
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
162
|
0 |
0 |
if defined $diags |
|
166
|
0 |
0 |
unless @diags |
|
168
|
0 |
0 |
unless my $output = $args{'output'} |
|
169
|
0 |
0 |
unless $diags |
|
181
|
0 |
0 |
unless defined $indent |
|
194
|
0 |
0 |
unless my $examples = $args{'examples'} |
|
195
|
0 |
0 |
unless @$examples |
|
197
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
198
|
0 |
0 |
unless my $output = $args{'output'} |
|
211
|
0 |
0 |
unless my $diagnostics = $args{'diagnostics'} |
|
212
|
0 |
0 |
unless @$diagnostics |
|
214
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
215
|
0 |
0 |
unless my $output = $args{'output'} |
|
230
|
0 |
0 |
unless @$subs |
|
232
|
0 |
0 |
unless my $output = $args{'output'} |
|
244
|
0 |
0 |
unless my $output = $args{'output'} |
|
251
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
252
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
253
|
0 |
0 |
unless my $output = $args{'output'} |
|
259
|
0 |
0 |
if $manual->inherited($subroutine) |
|
270
|
0 |
0 |
$paramlist =~ /^[\[<]|[\]>]$/ ? : |
|
|
0 |
0 |
!length($paramlist) ? : |
|
276
|
0 |
0 |
$type eq 'tie' ? : |
|
|
0 |
0 |
$type eq 'overload' ? : |
|
|
0 |
0 |
$type eq 'function' ? : |
|
|
0 |
0 |
$type eq 'ci_method' ? : |
|
|
0 |
0 |
$type eq 'c_method' ? : |
|
|
0 |
0 |
$type eq 'i_method' ? : |
|
286
|
0 |
0 |
unless length $use |
|
294
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
295
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
296
|
0 |
0 |
unless my $output = $args{'output'} |
|
299
|
0 |
0 |
$manual->inherited($subroutine) ? : |
|
306
|
0 |
0 |
$args{'last'} ? : |
|
312
|
0 |
0 |
unless my $output = $args{'output'} |
|
320
|
0 |
0 |
unless my $output = $args{'output'} |
|
321
|
0 |
0 |
unless my $option = $args{'option'} |
|
322
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
327
|
0 |
0 |
if length $params |
|
335
|
0 |
0 |
unless my $output = $args{'output'} |
|
336
|
0 |
0 |
unless my $option = $args{'option'} |
|
337
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
341
|
0 |
0 |
unless my $where = $option->findDescriptionObject |
|
343
|
0 |
0 |
if length $descr |
|
353
|
0 |
0 |
unless my $head = $args{'header'} |
|
354
|
0 |
0 |
unless my $output = $args{'output'} |
|
355
|
0 |
0 |
unless my $rows = $args{'rows'} |
|
356
|
0 |
0 |
unless @$rows |
|
373
|
0 |
0 |
if (my $widths = $args{'widths'}) |
|
414
|
0 |
27 |
unless ($string =~ s/^(|.*?[^>]) # contained
[>]{$brack_count}
(?![>])
//sx) |
|
423
|
3 |
24 |
if ($tag =~ /[XZ]/) { } |
|
|
13 |
11 |
elsif ($tag =~ /[BCI]/) { } |
|
|
3 |
8 |
elsif ($tag eq 'E') { } |
|
|
0 |
8 |
elsif ($tag eq 'F') { } |
|
|
8 |
0 |
elsif ($tag eq 'L') { } |
|
|
0 |
0 |
elsif ($tag eq 'S') { } |
|
430
|
4 |
4 |
if ($container =~ m[^\s*([^/|]*)\|]) |
|
436
|
2 |
2 |
if ($container =~ m[^\s*([^/]*)/\"([^"]*)\"\s*$]) { } |
|
|
1 |
1 |
elsif ($container =~ m[^\s*([^/]*)/(.*?)\s*$]) { } |
|
444
|
1 |
2 |
!length($chapter) ? : |
|
|
1 |
3 |
!length($man) ? : |
|
461
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
462
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
465
|
0 |
0 |
unless length $text |
|
467
|
0 |
0 |
unless my $output = $args{'output'} |
|
470
|
0 |
0 |
unless my $extends = $self->extends |
|
471
|
0 |
0 |
unless my $refer = $extends->findDescriptionObject |
|
477
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
478
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
479
|
0 |
0 |
unless my $output = $args{'output'} |
|
488
|
0 |
0 |
unless my $in = 'IO::File'->new($infn, 'r') |
|
491
|
0 |
0 |
unless my $out = 'IO::File'->new($outfn, 'w') |
|
497
|
0 |
0 |
if ($l =~ /^\s*$/s) { } |
|
498
|
0 |
0 |
if $last_is_blank |
|
509
|
0 |
0 |
unless $out->close |