| line |
true |
false |
branch |
|
41
|
1 |
23 |
if (ref $text eq 'ARRAY') { } |
|
53
|
22 |
1 |
unless (defined $end) |
|
54
|
18 |
4 |
if (not defined $start) { } |
|
58
|
0 |
4 |
if (length($start) % 2) { } |
|
74
|
53 |
68 |
if ($type) { } |
|
75
|
23 |
30 |
if ($what =~ /^\./) { } |
|
|
5 |
25 |
elsif ($what =~ /^!/) { } |
|
77
|
8 |
15 |
if ($what eq '..') { } |
|
|
7 |
8 |
elsif ($what =~ /^\.\./) { } |
|
78
|
8 |
0 |
if $stack[0][0] |
|
79
|
8 |
0 |
unless scalar @stack < 2 |
|
82
|
7 |
0 |
if $stack[0][0] |
|
112
|
1 |
4 |
defined $parm ? : |
|
122
|
0 |
3 |
scalar @lines ? : |
|
127
|
65 |
3 |
if (scalar @lines) |
|
133
|
21 |
66 |
if ($swallow_nl and $line eq "\n") { } |
|
160
|
53 |
76 |
if ($bit =~ /$start(.*)$end/) { } |
|
163
|
68 |
8 |
unless $bit eq '' |
|
189
|
3 |
16 |
if (scalar @_) |
|
193
|
3 |
16 |
unless defined $data_getter |
|
195
|
12 |
7 |
unless (defined $self->{'transducer'}) |
|
211
|
1 |
44 |
unless $self->{'transducer'}{$tag} |
|
221
|
0 |
32 |
unless defined $indent |
|
232
|
0 |
149 |
if (scalar @line_queue) |
|
234
|
0 |
0 |
if (scalar @line_queue == 1) |
|
241
|
204 |
32 |
if (defined $substream) |
|
243
|
117 |
87 |
if (defined $token) |
|
245
|
39 |
78 |
if (ref $token) |
|
246
|
39 |
0 |
if $token->[0] eq '"' |
|
249
|
7 |
71 |
if ($val eq "\n") { } |
|
|
17 |
54 |
elsif ($val =~ /\n/) { } |
|
269
|
87 |
32 |
if (scalar @child_queue) |
|
272
|
0 |
87 |
unless $lookup |
|
274
|
0 |
87 |
unless (defined $tt) |
|
277
|
0 |
87 |
unless (defined $tt) |
|
280
|
0 |
87 |
unless ref $tt |
|
301
|
18 |
78 |
unless defined $tok |
|
302
|
39 |
39 |
if (not ref $tok) { } |
|
326
|
5 |
10 |
unless defined $v |
|
327
|
0 |
10 |
if ref $v |
|
351
|
0 |
14 |
unless @_ |
|
352
|
13 |
1 |
if (scalar @_ eq 1) { } |
|
390
|
14 |
98 |
if (scalar @$item > 2) |
|
415
|
17 |
0 |
if (scalar @_ eq 1) |
|
417
|
0 |
0 |
if (&blessed($candidate) and $candidate->can('get') and $candidate->can('get_iterated')) |
|
440
|
0 |
0 |
if (defined $formatter) |
|
450
|
0 |
45 |
unless defined $what |
|
472
|
6 |
45 |
if $what eq '.' |
|
475
|
1 |
53 |
if $source eq '*' |
|
476
|
5 |
49 |
unless ref $source |
|
479
|
0 |
49 |
if (&blessed($source)) |
|
481
|
0 |
0 |
if defined $maybe |
|
485
|
6 |
43 |
if (ref $source eq 'ARRAY') |
|
487
|
5 |
1 |
if defined $maybe |
|
492
|
36 |
7 |
if defined $source->{$what} |
|
503
|
1 |
4 |
unless defined $src |
|
507
|
0 |
4 |
unless ($r) |
|
510
|
0 |
0 |
if $done |
|
516
|
0 |
4 |
if ($r eq 'HASH') |
|
517
|
0 |
0 |
unless scalar keys %$src |
|
520
|
0 |
0 |
if $done |
|
526
|
2 |
2 |
if ($r eq 'ARRAY') |
|
527
|
0 |
2 |
unless scalar $src |
|
538
|
4 |
4 |
unless scalar @queue |
|
546
|
2 |
0 |
if (&blessed($src) and $src->can('iter_hash')) |
|
553
|
0 |
2 |
unless $next |
|
556
|
4 |
4 |
unless $next |
|
584
|
0 |
0 |
unless defined $name |
|
586
|
0 |
0 |
if (defined $formatter) |
|
617
|
8 |
0 |
if ($format =~ /^([[:alnum:]]+)(.*)$/) |
|
621
|
0 |
8 |
unless defined $formatter |
|
643
|
0 |
0 |
if $done |
|
656
|
1 |
1 |
if $done |
|
669
|
54 |
54 |
if $done |
|
683
|
23 |
23 |
if $done |
|
696
|
1 |
1 |
if ($data_getter->get($source->[1], $context)) { } |
|
699
|
1 |
0 |
if (exists $source->[2]{'else'}) { } |
|
713
|
1 |
1 |
if (defined $ctx) { } |
|
716
|
1 |
0 |
if (exists $source->[2]{'else'}) { } |
|
734
|
4 |
1 |
if (defined $iter) { } |
|
741
|
0 |
33 |
if $empty |
|
743
|
38 |
4 |
if ($curstream) |
|
745
|
29 |
9 |
if (defined $tok) |
|
746
|
0 |
29 |
if ref $tok |
|
753
|
8 |
12 |
if ($state) { } |
|
754
|
1 |
7 |
if ($next_subctx and $alt) { } |
|
764
|
8 |
4 |
if (defined $subctx) |
|
773
|
1 |
0 |
if (exists $source->[2]{'else'}) { } |