| line |
true |
false |
branch |
|
34
|
0 |
0 |
if (ref $_[0] eq 'HASH') |
|
35
|
0 |
0 |
if (ref $_[0] eq 'ARRAY') |
|
45
|
0 |
0 |
if (ref $hash ne 'HASH') |
|
49
|
0 |
0 |
unless $_[1] |
|
53
|
0 |
0 |
if (ref $$hash{$key} eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $$hash{$key} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($$hash{$key}, 'UNIVERSAL')) { } |
|
67
|
0 |
0 |
unless ($_[1]) |
|
82
|
0 |
0 |
if (ref $array ne 'ARRAY') |
|
86
|
0 |
0 |
unless $_[1] |
|
90
|
0 |
0 |
if (ref $array_i eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $array_i eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($array_i, 'UNIVERSAL')) { } |
|
102
|
0 |
0 |
unless ($_[1]) |
|
115
|
0 |
0 |
if (&Is_Packed_HASH($_[0])) |
|
116
|
0 |
0 |
if (&Is_Packed_ARRAY($_[0])) |
|
129
|
0 |
0 |
unless ($_[1]) |
|
130
|
0 |
0 |
if (not &Is_Packed_HASH($_[0])) { } |
|
|
0 |
0 |
elsif (not &Check_Pack_Size($_[0])) { } |
|
142
|
0 |
0 |
if ($tp == 1) { } |
|
|
0 |
0 |
elsif ($tp == 2) { } |
|
154
|
0 |
0 |
if (wantarray) { } |
|
167
|
0 |
0 |
unless ($_[1]) |
|
168
|
0 |
0 |
if (not &Is_Packed_ARRAY($_[0])) { } |
|
|
0 |
0 |
elsif (not &Check_Pack_Size($_[0])) { } |
|
179
|
0 |
0 |
if ($tp == 1) { } |
|
|
0 |
0 |
elsif ($tp == 2) { } |
|
191
|
0 |
0 |
if (wantarray) { } |
|
202
|
0 |
0 |
unless ($lng) |
|
209
|
0 |
0 |
if ($s eq ':') |
|
225
|
0 |
0 |
if ($_[0] =~ /^\s*\%HDB_PACKED_HASH%\[[\d\.]+]\{\d+}:/) |
|
234
|
0 |
0 |
if ($_[0] =~ /^\s*\%HDB_PACKED_ARRAY%\[[\d\.]+]\{\d+}:/) |
|
243
|
0 |
0 |
if ($_[0] =~ /^(\s*\%HDB_PACKED_(?:HASH|ARRAY)%\[[\d\.]+]\{)(\d+)(}:)/s) |
|
247
|
0 |
0 |
if (length $_[0] == $lng) |
|
258
|
0 |
0 |
if (ref $ref eq 'HASH') |
|
259
|
0 |
0 |
if (ref $ref eq 'ARRAY') |
|
269
|
0 |
0 |
if (ref $hash ne 'HASH') |
|
273
|
0 |
0 |
unless $_[1] |
|
277
|
0 |
0 |
if (ref $$hash{$key} eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $$hash{$key} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($$hash{$key}, 'UNIVERSAL')) { } |
|
291
|
0 |
0 |
unless ($_[1]) |
|
293
|
0 |
0 |
unless $_[1] |
|
305
|
0 |
0 |
if (ref $array ne 'ARRAY') |
|
309
|
0 |
0 |
unless $_[1] |
|
313
|
0 |
0 |
if (ref $array_i eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $array_i eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($array_i, 'UNIVERSAL')) { } |
|
325
|
0 |
0 |
unless ($_[1]) |
|
327
|
0 |
0 |
unless $_[1] |