| line |
true |
false |
branch |
|
56
|
0 |
1 |
unless $meta eq 'meta' |
|
69
|
0 |
21 |
ref $_[0] eq 'HASH' ? : |
|
99
|
0 |
0 |
if (ref $input eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $input or not $input =~ /^=/m) { } |
|
100
|
0 |
0 |
if ($input = $input->{'text'}) { } |
|
|
0 |
0 |
elsif ($input = $input->{'file'}) { } |
|
132
|
4 |
1 |
if (ref $file) { } |
|
140
|
0 |
1 |
$file eq '-' ? : |
|
141
|
0 |
1 |
unless open FP, $file |
|
165
|
0 |
58 |
unless defined $item |
|
169
|
53 |
5 |
unless defined $name |
|
183
|
1 |
1 |
if ($encoding ne 'utf8' or not Encode::is_utf8($chunk)) |
|
194
|
798 |
48 |
defined $1 ? : |
|
196
|
431 |
415 |
if ($para =~ s/^==?(\w+)\s*//) { } |
|
|
9 |
406 |
elsif (not $inpod) { } |
|
|
39 |
367 |
elsif ($para =~ /^\s+/) { } |
|
199
|
2 |
429 |
if ($type eq 'pod') { } |
|
|
13 |
416 |
elsif ($type eq 'cut') { } |
|
203
|
2 |
414 |
if ($type eq 'meta') |
|
205
|
2 |
0 |
$self->{'META'} ? : |
|
211
|
5 |
4 |
unless $code |
|
226
|
23 |
762 |
if ($verbatim) |
|
231
|
0 |
38 |
if (not defined $result) { } |
|
|
23 |
15 |
elsif (ref $result) { } |
|
|
0 |
15 |
elsif ($result == 1) { } |
|
|
0 |
15 |
elsif ($result == 2) { } |
|
|
0 |
15 |
elsif (@stack == 1) { } |
|
264
|
3 |
1353 |
if (not defined $result) { } |
|
|
725 |
628 |
elsif (ref $result) { } |
|
|
54 |
574 |
elsif ($result == 1) { } |
|
|
3 |
571 |
elsif ($result == 2) { } |
|
|
3 |
568 |
elsif (@stack == 1) { } |
|
294
|
1 |
57 |
if ($verbatim) |
|
299
|
0 |
1 |
if (not defined $result) { } |
|
|
1 |
0 |
elsif (ref $result) { } |
|
|
0 |
0 |
elsif ($result == 1) { } |
|
|
0 |
0 |
elsif ($result == 2) { } |
|
|
0 |
0 |
elsif (@stack == 1) { } |
|
360
|
192 |
1194 |
if (defined $1) { } |
|
|
204 |
990 |
elsif (defined $3) { } |
|
|
990 |
0 |
elsif (defined $4) { } |
|
369
|
189 |
15 |
if ($rparen eq $stack[-1][2]) { } |
|
375
|
11 |
4 |
scalar @stack > 1 ? : |
|
415
|
0 |
1 |
unless $viewer |
|
416
|
1 |
0 |
unless (ref $viewer) |
|
421
|
0 |
1 |
if $@ |
|
441
|
0 |
27 |
unless defined $line and length $line |
|
442
|
27 |
0 |
if $file |
|
446
|
6 |
21 |
if (ref $warn eq 'CODE') { } |
|
|
6 |
15 |
elsif ($warn) { } |
|
464
|
4 |
0 |
wantarray ? : |
|
481
|
0 |
0 |
if (ref $self) { } |
|
488
|
0 |
0 |
if (@_) { } |
|
489
|
0 |
0 |
ref $_[0] ? : |
|
500
|
0 |
0 |
if $DEBUG |