line |
true |
false |
branch |
35
|
0 |
12 |
if ($] < "5.006") |
130
|
12 |
0 |
unless defined $self->{'alt'} |
131
|
12 |
0 |
unless defined $self->{'indent'} |
132
|
12 |
0 |
unless defined $self->{'loose'} |
133
|
12 |
0 |
unless defined $self->{'sentence'} |
134
|
12 |
0 |
unless defined $self->{'width'} |
154
|
9 |
52 |
if $command eq "pod" |
155
|
0 |
52 |
if $self->{'EXCLUDE'} and $command ne "end" |
156
|
2 |
50 |
if (defined $self->{'ITEM'}) |
159
|
0 |
2 |
if $command eq "back" |
170
|
0 |
6 |
if $self->{'EXCLUDE'} |
171
|
1 |
5 |
if defined $self->{'ITEM'} |
173
|
3 |
3 |
if /^\s*$/ |
182
|
3 |
78 |
if $self->{'EXCLUDE'} |
183
|
4 |
74 |
if ($self->{'VERBATIM'}) |
222
|
0 |
0 |
if @items > 2 and $i != $#items |
223
|
0 |
0 |
if $i == $#items - 1 |
232
|
13 |
61 |
if (defined $self->{'ITEM'}) { } |
247
|
0 |
107 |
if $command eq "X" or $command eq "Z" |
250
|
10 |
97 |
if ($command eq "E") |
251
|
10 |
0 |
if defined $Pod::PlainText::ESCAPES{$_} |
257
|
1 |
96 |
if $_ eq "" |
261
|
3 |
93 |
if ($command eq "S") |
268
|
28 |
65 |
if ($command eq 'B') { } |
|
26 |
39 |
elsif ($command eq 'C') { } |
|
2 |
37 |
elsif ($command eq 'F') { } |
|
14 |
23 |
elsif ($command eq 'I') { } |
|
23 |
0 |
elsif ($command eq 'L') { } |
298
|
0 |
16 |
if ($self->{'alt'}) { } |
301
|
0 |
16 |
if $self->{'loose'} |
312
|
0 |
0 |
if ($self->{'alt'}) { } |
315
|
0 |
0 |
if $self->{'loose'} |
326
|
0 |
0 |
if ($self->{'alt'}) { } |
329
|
0 |
0 |
if $self->{'loose'} |
342
|
0 |
7 |
unless (/^[-+]?\d+\s+$/) |
351
|
0 |
7 |
unless (defined $self->{'MARGIN'}) |
360
|
0 |
16 |
if (defined $self->{'ITEM'}) |
371
|
0 |
2 |
unless my($kind) = /^(\S+)/ |
372
|
1 |
1 |
if ($kind eq 'text') { } |
393
|
1 |
1 |
unless s/^text\b[ \t]*\r?\n?// |
408
|
0 |
28 |
$_[0]{'alt'} ? : |
409
|
0 |
26 |
$_[0]{'alt'} ? : |
410
|
0 |
2 |
$_[0]{'alt'} ? : |
424
|
9 |
14 |
if (/^([^|]+)\|/) |
435
|
1 |
13 |
if (/^(?:https?|ftp|news):/) { } |
|
1 |
12 |
elsif (/^"\s*(.*?)\s*"$/) { } |
|
2 |
10 |
elsif (/^[-:.\w]+(?:\(\S+\))?$/) { } |
|
10 |
0 |
elsif (m[/]) { } |
448
|
2 |
11 |
if (not length $section) { } |
|
8 |
3 |
elsif ($section =~ /^[:\w]+(?:\(\))?/) { } |
449
|
2 |
0 |
if length $manpage |
452
|
8 |
0 |
length $manpage ? : |
458
|
2 |
1 |
if length $manpage |
479
|
0 |
16 |
unless (defined $tag) |
485
|
0 |
16 |
unless (defined $indent) |
487
|
0 |
16 |
if $self->{'alt'} |
488
|
6 |
10 |
if (not $_ or /^\s+$/ or $self->{'MARGIN'} - $indent < length($tag) + 1) { } |
495
|
3 |
3 |
if defined $_ and /\S/ |
498
|
0 |
10 |
if $self->{'alt'} and $indent > 0 |
500
|
0 |
10 |
unless s/^($space)$tagspace/$1$tag/ |
521
|
49 |
0 |
if (s/^([^\r\n]{0,$width})\s+// or s/^([^\r\n]{$width})//) { } |
540
|
0 |
80 |
if ($self->{'sentence'}) { } |
569
|
0 |
0 |
if ($flag eq '-a') { } |
|
0 |
0 |
elsif ($flag =~ /^-(\d+)$/) { } |
584
|
0 |
0 |
if (defined $_[1]) { } |
586
|
0 |
0 |
if ($] < "5.006") |
589
|
0 |
0 |
unless (open $infh, $_[0]) |