| line |
true |
false |
branch |
|
30
|
0 |
6 |
if $data and ref $data ne 'HASH' |
|
44
|
4 |
2 |
if @isa_tin |
|
50
|
0 |
6 |
if $@ |
|
65
|
10 |
4 |
if (@_ == 1) { } |
|
67
|
10 |
0 |
if (ref $param eq 'HASH') { } |
|
|
0 |
0 |
elsif (-e $param) { } |
|
71
|
0 |
0 |
unless ($data) |
|
72
|
0 |
0 |
if $@ |
|
73
|
0 |
0 |
unless defined $data |
|
91
|
8 |
44 |
if ($stopper and $stopper > 0) |
|
97
|
0 |
52 |
if $@ |
|
108
|
31 |
30 |
if *$accessor{'CODE'} |
|
111
|
0 |
30 |
if $@ |
|
115
|
0 |
288 |
if @_ |
|
137
|
0 |
15 |
unless $val |
|
147
|
13 |
2 |
if ($oldval) |
|
168
|
4 |
15 |
if ($oldval and $val) |
|
182
|
4 |
13 |
if ($ref eq 'ARRAY' and $oldval->[0] eq $stop) |
|
188
|
1 |
16 |
if ($refnew eq 'ARRAY' and $newval->[0] eq $stop) |
|
194
|
4 |
13 |
if (not $ref or $ref eq 'SCALAR') { } |
|
|
6 |
7 |
elsif ($ref eq 'HASH') { } |
|
|
7 |
0 |
elsif ($ref eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($ref eq 'CODE') { } |
|
195
|
1 |
3 |
if ($refnew eq 'SCALAR') { } |
|
198
|
0 |
3 |
if ($ref eq 'SCALAR') { } |
|
207
|
0 |
6 |
if (not $refnew) { } |
|
|
6 |
0 |
elsif ($refnew eq 'HASH') { } |
|
215
|
0 |
7 |
if (not $refnew) { } |
|
|
7 |
0 |
elsif ($refnew eq 'ARRAY') { } |
|
236
|
2 |
82 |
unless @vals |
|
242
|
9 |
73 |
if ($ref eq 'ARRAY' and $vals[0][0] eq $stop) |
|
252
|
1 |
269 |
unless $v |
|
253
|
17 |
252 |
if (ref $v eq 'ARRAY' and $v->[0] eq $stop) { } |
|
273
|
66 |
6 |
if (not $r) { } |
|
|
6 |
0 |
elsif ($r eq 'SCALAR') { } |
|
289
|
36 |
68 |
if (not defined $ret) { } |