| line |
true |
false |
branch |
|
41
|
1 |
25 |
if (ref $text eq 'ARRAY') { } |
|
53
|
24 |
1 |
unless (defined $end) |
|
54
|
20 |
4 |
if (not defined $start) { } |
|
58
|
0 |
4 |
if (length($start) % 2) { } |
|
74
|
55 |
70 |
if ($type) { } |
|
75
|
2 |
53 |
if ($what eq '.' or $what =~ /^\.\|/) { } |
|
|
23 |
30 |
elsif ($what =~ /^\./) { } |
|
|
5 |
25 |
elsif ($what =~ /^!/) { } |
|
80
|
8 |
15 |
if ($what eq '..') { } |
|
|
7 |
8 |
elsif ($what =~ /^\.\./) { } |
|
81
|
8 |
0 |
if $stack[0][0] |
|
82
|
8 |
0 |
unless scalar @stack < 2 |
|
85
|
7 |
0 |
if $stack[0][0] |
|
115
|
1 |
4 |
defined $parm ? : |
|
125
|
0 |
3 |
scalar @lines ? : |
|
130
|
67 |
3 |
if (scalar @lines) |
|
136
|
21 |
68 |
if ($swallow_nl and $line eq "\n") { } |
|
163
|
55 |
78 |
if ($bit =~ /$start(.*)$end/) { } |
|
166
|
70 |
8 |
unless $bit eq '' |
|
192
|
5 |
16 |
if (scalar @_) |
|
196
|
5 |
16 |
unless defined $data_getter |
|
198
|
14 |
7 |
unless (defined $self->{'transducer'}) |
|
214
|
1 |
48 |
unless $self->{'transducer'}{$tag} |
|
224
|
0 |
34 |
unless defined $indent |
|
235
|
0 |
155 |
if (scalar @line_queue) |
|
237
|
0 |
0 |
if (scalar @line_queue == 1) |
|
244
|
212 |
34 |
if (defined $substream) |
|
246
|
121 |
91 |
if (defined $token) |
|
248
|
39 |
82 |
if (ref $token) |
|
249
|
39 |
0 |
if $token->[0] eq '"' |
|
252
|
7 |
75 |
if ($val eq "\n") { } |
|
|
17 |
58 |
elsif ($val =~ /\n/) { } |
|
272
|
91 |
34 |
if (scalar @child_queue) |
|
275
|
0 |
91 |
unless $lookup |
|
277
|
0 |
91 |
unless (defined $tt) |
|
280
|
0 |
91 |
unless (defined $tt) |
|
283
|
0 |
91 |
unless ref $tt |
|
304
|
20 |
82 |
unless defined $tok |
|
305
|
43 |
39 |
if (not ref $tok) { } |
|
329
|
5 |
10 |
unless defined $v |
|
330
|
0 |
10 |
if ref $v |
|
354
|
0 |
14 |
unless @_ |
|
355
|
13 |
1 |
if (scalar @_ eq 1) { } |
|
393
|
14 |
102 |
if (scalar @$item > 2) |
|
418
|
19 |
0 |
if (scalar @_ eq 1) |
|
420
|
0 |
0 |
if (&blessed($candidate) and $candidate->can('get') and $candidate->can('get_iterated')) |
|
443
|
0 |
0 |
if (defined $formatter) |
|
453
|
0 |
47 |
unless defined $what |
|
475
|
8 |
45 |
if $what eq '.' |
|
478
|
1 |
53 |
if $source eq '*' |
|
479
|
5 |
49 |
unless ref $source |
|
482
|
0 |
49 |
if (&blessed($source)) |
|
484
|
0 |
0 |
if defined $maybe |
|
488
|
6 |
43 |
if (ref $source eq 'ARRAY') |
|
490
|
5 |
1 |
if defined $maybe |
|
495
|
36 |
7 |
if defined $source->{$what} |
|
506
|
1 |
4 |
unless defined $src |
|
510
|
0 |
4 |
unless ($r) |
|
513
|
0 |
0 |
if $done |
|
519
|
0 |
4 |
if ($r eq 'HASH') |
|
520
|
0 |
0 |
unless scalar keys %$src |
|
523
|
0 |
0 |
if $done |
|
529
|
2 |
2 |
if ($r eq 'ARRAY') |
|
530
|
0 |
2 |
unless scalar $src |
|
541
|
4 |
4 |
unless scalar @queue |
|
549
|
2 |
0 |
if (&blessed($src) and $src->can('iter_hash')) |
|
556
|
0 |
2 |
unless $next |
|
559
|
4 |
4 |
unless $next |
|
587
|
0 |
0 |
unless defined $name |
|
589
|
0 |
0 |
if (defined $formatter) |
|
620
|
9 |
0 |
if ($format =~ /^([[:alnum:]]+)(.*)$/) |
|
624
|
0 |
9 |
unless defined $formatter |
|
646
|
0 |
0 |
if $done |
|
659
|
1 |
1 |
if $done |
|
672
|
56 |
56 |
if $done |
|
686
|
25 |
25 |
if $done |
|
699
|
1 |
1 |
if ($data_getter->get($source->[1], $context)) { } |
|
702
|
1 |
0 |
if (exists $source->[2]{'else'}) { } |
|
716
|
1 |
1 |
if (defined $ctx) { } |
|
719
|
1 |
0 |
if (exists $source->[2]{'else'}) { } |
|
737
|
4 |
1 |
if (defined $iter) { } |
|
744
|
0 |
33 |
if $empty |
|
746
|
38 |
4 |
if ($curstream) |
|
748
|
29 |
9 |
if (defined $tok) |
|
749
|
0 |
29 |
if ref $tok |
|
756
|
8 |
12 |
if ($state) { } |
|
757
|
1 |
7 |
if ($next_subctx and $alt) { } |
|
767
|
8 |
4 |
if (defined $subctx) |
|
776
|
1 |
0 |
if (exists $source->[2]{'else'}) { } |