line |
true |
false |
branch |
253
|
22 |
15 |
if (length(my $part = shift @parts)) |
254
|
8 |
14 |
if ($literal) { } |
325
|
0 |
4 |
wantarray ? : |
|
4 |
27 |
if not $code && @$code or $renderer->info->{'stop'} |
331
|
2 |
25 |
if (wantarray and @$code == 1) |
335
|
0 |
2 |
if (defined $max_len) |
338
|
0 |
0 |
if (length $_ > $max_len) |
352
|
1 |
42 |
if (defined $max_len) |
355
|
1 |
0 |
if ($part_len > $max_len) |
413
|
43 |
2 |
$renderer->step ? : |
442
|
32 |
11 |
if ($type eq q['']) |
451
|
3 |
8 |
if ($type eq '$') |
455
|
0 |
0 |
@$value && $$value[0] eq '<>' ? : |
|
0 |
3 |
if ref $value eq 'ARRAY' |
460
|
3 |
0 |
defined $value ? : |
465
|
8 |
0 |
if ($type eq '()') |
468
|
0 |
8 |
if ($name =~ /^\$([a-zA-Z0-9_\.]+)$/) |
471
|
0 |
0 |
if (ref $value eq 'ARRAY') |
472
|
0 |
0 |
@$value && $$value[0] eq '<>' ? : |
479
|
0 |
0 |
defined $value ? : |
485
|
4 |
4 |
if blessed $value and $value->can('render') |
490
|
3 |
1 |
unless (ref $value eq 'CODE') |
492
|
2 |
1 |
unless ref $value eq 'CODE' |
621
|
2 |
25 |
if $token =~ m[^/\*.*\*/$]s |
624
|
17 |
8 |
if ($token =~ /^'(.*)'$/s or $token =~ /^"(.*)"$/s) |
630
|
0 |
8 |
if ($token =~ /^-?\d+(?:\.\d*)?$/) |
636
|
3 |
5 |
if ($token =~ /^\$([a-zA-Z0-9_]+)$/) |
637
|
0 |
3 |
if (@$tokens and $$tokens[0] eq '(') { } |
647
|
2 |
1 |
if ($token eq $_) |
671
|
1 |
2 |
if (@$tokens and $$tokens[0] eq '(') |
675
|
2 |
2 |
if $token eq ',' or $token eq ')' |
676
|
1 |
3 |
if $token eq ')' |
678
|
2 |
1 |
if ($token ne ',') |
681
|
2 |
0 |
if @code |