blib/lib/Template/Perlish.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 39 | 46 | 84.7 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
211 | 2 | 75 | 10 | @_ && ref $_[-1] eq 'HASH' |
225 | 0 | 29 | 0 | defined $path_input and not length $path_input |
283 | 157 | 5 | 5 | $is_blessed && $$ref_to_value->can($key) |
284 | 157 | 9 | 1 | $is_blessed and $strict_blessed |
161 | 3 | 2 | $method and $method_pre | |
19 | 145 | 0 | $ref eq "HASH" and exists $$ref_to_value->{$key} | |
11 | 19 | 0 | $ref eq "ARRAY" and exists $$ref_to_value->[$key] | |
12 | 0 | 1 | $method and $use_method | |
547 | 83 | 2 | 26 | $postpos != length $input and not $allow_partial |
571 | 83 | 0 | 2 | $allow_partial and wantarray |
line | l | !l | condition |
---|---|---|---|
192 | 63 | 13 | $pos || 0 |
232 | 10 | 75 | $opts->{'traverse_methods'} || 0 |
235 | 2 | 8 | $opts->{'strict_blessed'} || 0 |
236 | 4 | 6 | !$strict_blessed && $opts->{'method_over_key'} || 0 |
552 | 151 | 151 | pos $part || 0 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
207 | 1 | 7 | 79 | $iref eq 'SCALAR' || $iref eq 'REF' |
279 | 162 | 5 | 0 | $ref ||= $key =~ /\A (?: 0 | [1-9]\d*) \z/msx ? "ARRAY" : "HASH" |