Branch Coverage

blib/lib/Text/TemplateLite.pm
Criterion Covered Total %
branch 48 68 70.5


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