| line |
true |
false |
branch |
|
37
|
0 |
652 |
unless my $path = shift @tokens |
|
45
|
31 |
22 |
if ($arg =~ /^$VARIABLE_RE$/) { } |
|
48
|
8 |
23 |
if ($arg =~ /$PARAM_PREFIX_RE/) { } |
|
72
|
1 |
788 |
$next =~ /:/ ? : |
|
77
|
726 |
63 |
if (&blessed($current)) { } |
|
|
55 |
8 |
elsif (ref $current eq 'HASH') { } |
|
|
0 |
8 |
elsif (ref $current eq 'ARRAY') { } |
|
79
|
652 |
74 |
if $current->isa('Petal::Hash') |
|
82
|
58 |
16 |
if ($current->can($next) or $current->can('AUTOLOAD')) { } |
|
84
|
8 |
50 |
if ($has_path_tokens) { } |
|
89
|
15 |
1 |
if (&reftype($current) || '') eq 'HASH' |
|
90
|
1 |
0 |
if (&reftype($current) || '') eq 'ARRAY' |
|
98
|
721 |
1 |
unless (ref $current->{$next} eq 'CODE') |
|
100
|
0 |
721 |
if $has_args and not $has_path_tokens |
|
107
|
0 |
1 |
unless $next =~ /$INTEGER_KEY_RE/ |
|
112
|
0 |
1 |
if $has_args and not $has_path_tokens |
|
120
|
8 |
0 |
if ($Petal::ERROR_ON_UNDEF_VAR) |
|
125
|
0 |
8 |
defined $current ? : |
|
132
|
1 |
780 |
ref $current eq 'CODE' ? : |
|
138
|
0 |
644 |
if ref $current eq 'SCALAR' |