| line |
true |
false |
branch |
|
50
|
0 |
0 |
if $object->isa("OODoc::Text::Option") |
|
51
|
0 |
0 |
if $object->isa("OODoc::Text::Default") |
|
52
|
0 |
0 |
if $object->isa("OODoc::Text::Example") |
|
53
|
0 |
0 |
if $object->isa("OODoc::Text::Subroutine") |
|
54
|
0 |
0 |
defined $text ? : |
|
56
|
0 |
0 |
if $object->isa("OODoc::Manual") |
|
59
|
0 |
0 |
unless $object->isa("OODoc::Text::Structure") |
|
62
|
0 |
0 |
defined $manual ? : |
|
69
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
76
|
0 |
0 |
unless open my $output, ">:encoding(UTF-8)", $tmpfile |
|
117
|
0 |
0 |
if (not defined $append) { } |
|
|
0 |
0 |
elsif (ref $append eq 'CODE') { } |
|
120
|
0 |
0 |
unless my $output = $args{'output'} |
|
131
|
0 |
0 |
unless my $text = $args{'structure'} |
|
135
|
0 |
0 |
unless my $output = $args{'output'} |
|
136
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
142
|
0 |
0 |
if $examples eq "EXPAND" |
|
150
|
0 |
0 |
unless my $text = $args{'structure'} |
|
154
|
0 |
0 |
unless my $output = $args{'output'} |
|
155
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
167
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
170
|
0 |
0 |
unless my $output = $args{'output'} |
|
178
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
181
|
0 |
0 |
if defined $diags |
|
185
|
0 |
0 |
unless @diags |
|
187
|
0 |
0 |
unless my $output = $args{'output'} |
|
188
|
0 |
0 |
unless $diags |
|
213
|
0 |
0 |
unless my $examples = $args{'examples'} |
|
214
|
0 |
0 |
unless @$examples |
|
216
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
217
|
0 |
0 |
unless my $output = $args{'output'} |
|
230
|
0 |
0 |
unless my $diagnostics = $args{'diagnostics'} |
|
231
|
0 |
0 |
unless @$diagnostics |
|
233
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
234
|
0 |
0 |
unless my $output = $args{'output'} |
|
250
|
0 |
0 |
unless @$subs |
|
252
|
0 |
0 |
unless my $output = $args{'output'} |
|
264
|
0 |
0 |
unless my $output = $args{'output'} |
|
271
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
272
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
273
|
0 |
0 |
unless my $output = $args{'output'} |
|
279
|
0 |
0 |
if $manual->inherited($subroutine) |
|
291
|
0 |
0 |
if $type eq "tie" |
|
294
|
0 |
0 |
$paramlist =~ /^[\[<]|[\]>]$/ ? : |
|
|
0 |
0 |
!length($paramlist) ? : |
|
298
|
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' ? : |
|
311
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
312
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
313
|
0 |
0 |
unless my $output = $args{'output'} |
|
316
|
0 |
0 |
$manual->inherited($subroutine) ? : |
|
317
|
0 |
0 |
$args{'last'} ? : |
|
322
|
0 |
0 |
unless my $output = $args{'output'} |
|
330
|
0 |
0 |
unless my $output = $args{'output'} |
|
331
|
0 |
0 |
unless my $option = $args{'option'} |
|
332
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
335
|
0 |
0 |
if length $params |
|
343
|
0 |
0 |
unless my $output = $args{'output'} |
|
344
|
0 |
0 |
unless my $option = $args{'option'} |
|
345
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
349
|
0 |
0 |
unless my $where = $option->findDescriptionObject |
|
351
|
0 |
0 |
if length $descr |
|
359
|
0 |
0 |
unless my $head = $args{'header'} |
|
360
|
0 |
0 |
unless my $output = $args{'output'} |
|
361
|
0 |
0 |
unless my $rows = $args{'rows'} |
|
362
|
0 |
0 |
unless @$rows |
|
379
|
0 |
0 |
if (my $widths = $args{'widths'}) |
|
420
|
0 |
27 |
unless ($string =~ s/^(|.*?[^>]) # contained
[>]{$brack_count}
(?![>])
//sx) |
|
429
|
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') { } |
|
436
|
4 |
4 |
if ($container =~ m[^\s*([^/|]*)\|]) |
|
442
|
2 |
2 |
if ($container =~ m[^\s*([^/]*)/\"([^"]*)\"\s*$]) { } |
|
|
1 |
1 |
elsif ($container =~ m[^\s*([^/]*)/(.*?)\s*$]) { } |
|
450
|
1 |
2 |
!length($chapter) ? : |
|
|
1 |
3 |
!length($man) ? : |
|
467
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
468
|
0 |
0 |
unless my $output = $args{'output'} |
|
469
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
475
|
0 |
0 |
$extends ? : |
|
476
|
0 |
0 |
unless $refer |
|
478
|
0 |
0 |
if length $text |
|
479
|
0 |
0 |
if $refer |
|
484
|
0 |
0 |
unless my $manual = $args{'manual'} |
|
485
|
0 |
0 |
unless my $output = $args{'output'} |
|
486
|
0 |
0 |
unless my $subroutine = $args{'subroutine'} |
|
496
|
0 |
0 |
unless open my $in, "<:encoding(UTF-8)", $infn |
|
499
|
0 |
0 |
unless open my $out, ">:encoding(UTF-8)", $outfn |
|
505
|
0 |
0 |
if ($l =~ /^\s*$/s) { } |
|
506
|
0 |
0 |
if $last_is_blank |
|
517
|
0 |
0 |
unless $out->close |