| line |
true |
false |
branch |
|
24
|
0 |
123 |
if scalar @{$s->{'scopes'};} == 100
|
|
25
|
18 |
105 |
defined $context ? :
|
|
35
|
0 |
123 |
if scalar @{$s->{'scopes'};} == 1
|
|
58
|
0 |
0 |
if ('ARRAY' eq ref $target->{$_} and 'ARRAY' eq ref $source->{$_} || !ref($source->{$_})) { }
|
|
|
0 |
0 |
elsif ('HASH' eq ref $target->{$_} and 'HASH' eq ref $source->{$_} || !ref($source->{$_})) { }
|
|
75
|
14 |
1 |
defined $_[0] ? :
|
|
81
|
0 |
64 |
defined $_[1] ? :
|
|
93
|
105 |
135 |
ref($_->{$key}) =~ /^(HASH|ARRAY)$/o ? :
|
|
105
|
6 |
2437 |
unless defined $var
|
|
106
|
362 |
2075 |
if $var =~ /^(["'])(.+)\1$/o
|
|
111
|
847 |
1228 |
if $var =~ /^[-\+]?(\d*\.)?\d+$/o and not exists $$$cursor{$path[0]}
|
|
112
|
12 |
1216 |
if $var eq ""
|
|
113
|
5 |
1211 |
if $var eq "\"\""
|
|
114
|
3 |
1208 |
if $var eq "''"
|
|
115
|
1 |
1207 |
if $var eq "null"
|
|
116
|
1 |
1206 |
if $var eq "nil"
|
|
117
|
1 |
1205 |
if $var eq "blank"
|
|
118
|
1 |
1204 |
if $var eq "empty"
|
|
119
|
3 |
1201 |
if $var eq "false"
|
|
120
|
4 |
1197 |
if $var eq "true"
|
|
122
|
30 |
1167 |
if ($var =~ /^\((\S+)\s*\.\.\s*(\S+)\)$/o)
|
|
128
|
4 |
1163 |
if ($var =~ /^(.+)\[(\d+)\]$/o)
|
|
132
|
4 |
0 |
if $arr
|
|
137
|
1 |
1162 |
if ($var =~ /^(.+)\[(.+)\]$/o)
|
|
141
|
1 |
0 |
if $obj
|
|
147
|
2 |
1357 |
if (&Scalar::Util::blessed($$cursor) and $$cursor->can($crumb)) { }
|
|
|
1325 |
32 |
elsif ($reftype eq 'HASH') { }
|
|
|
20 |
12 |
elsif ($reftype eq 'ARRAY') { }
|
|
150
|
1 |
1 |
unless scalar @path
|
|
155
|
1004 |
321 |
if (exists $$cursor->{$crumb})
|
|
156
|
813 |
191 |
unless @path
|
|
163
|
2 |
18 |
if $crumb eq "size"
|
|
164
|
2 |
16 |
if $crumb eq "first"
|
|
165
|
2 |
16 |
if $crumb eq "last"
|
|
166
|
1 |
17 |
if $crumb =~ /\D/o
|
|
167
|
4 |
13 |
if scalar @$$cursor < $crumb
|
|
168
|
8 |
5 |
unless scalar @path
|
|
182
|
604 |
250 |
if exists $$$cursor{$path[0]}
|
|
186
|
274 |
6 |
if ($reftype eq 'HASH') { }
|
|
|
4 |
2 |
elsif ($reftype eq 'ARRAY') { }
|
|
187
|
266 |
8 |
if (not @path) { }
|
|
188
|
14 |
252 |
if (exists $$cursor->{$crumb})
|
|
196
|
3 |
0 |
$path[0] =~ /\D/ ? :
|
|
|
3 |
5 |
unless exists $$cursor->{$crumb}
|
|
202
|
0 |
4 |
if ($crumb =~ /\D/)
|
|
206
|
1 |
3 |
if (not @path) { }
|
|
207
|
0 |
1 |
if (exists $$cursor->[$crumb])
|
|
214
|
0 |
0 |
$path[0] =~ /\D/ ? :
|
|
|
0 |
3 |
unless exists $$cursor->[$crumb]
|
|
221
|
2 |
0 |
if (not @path) { }
|
|
222
|
2 |
0 |
if ($crumb =~ /\D/)
|
|
230
|
0 |
0 |
$path[0] =~ /\D/ ? :
|
|
|
0 |
0 |
unless exists $$cursor->[$crumb]
|