blib/lib/Template/Perlish.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 39 | 46 | 84.7 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
211 | 2 | 75 | 16 | @_ && ref $_[-1] eq 'HASH' |
227 | 0 | 29 | 0 | defined $path_input and not length $path_input |
285 | 167 | 5 | 5 | $is_blessed && $$ref_to_value->can($key) |
286 | 167 | 9 | 1 | $is_blessed and $strict_blessed |
171 | 3 | 2 | $method and $method_pre | |
19 | 155 | 0 | $ref eq "HASH" and exists $$ref_to_value->{$key} | |
17 | 19 | 0 | $ref eq "ARRAY" and exists $$ref_to_value->[$key] | |
18 | 0 | 1 | $method and $use_method | |
553 | 83 | 2 | 26 | $postpos != length $input and not $allow_partial |
577 | 83 | 0 | 2 | $allow_partial and wantarray |
line | l | !l | condition |
---|---|---|---|
192 | 63 | 13 | $pos || 0 |
234 | 10 | 81 | $opts->{'traverse_methods'} || 0 |
237 | 2 | 8 | $opts->{'strict_blessed'} || 0 |
238 | 4 | 6 | !$strict_blessed && $opts->{'method_over_key'} || 0 |
558 | 151 | 151 | pos $part || 0 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
207 | 1 | 7 | 85 | $iref eq 'SCALAR' || $iref eq 'REF' |
281 | 172 | 5 | 0 | $ref ||= $key =~ /\A (?: 0 | [1-9]\d*) \z/msx ? "ARRAY" : "HASH" |