| line |
true |
false |
branch |
|
45
|
11 |
131 |
if (ref $class_or_self) |
|
57
|
12 |
67 |
if (ref $class_or_self) |
|
112
|
772 |
0 |
if (ref $_[0]) |
|
142
|
11 |
1774 |
unless defined $key |
|
170
|
7 |
224 |
unless exists $caller2export{$want} |
|
171
|
2 |
222 |
unless defined $caller2export{$want} |
|
192
|
761 |
11 |
if @_ == 1 and readonly($_[0]) |
|
201
|
1184 |
612 |
if (my $object = tied %$self) { } |
|
202
|
782 |
402 |
@_ == 0 ? : |
|
204
|
402 |
210 |
@_ == 0 ? : |
|
212
|
36 |
6 |
unless defined $visited |
|
213
|
36 |
6 |
unless (defined $ancestors or $$visited{$class}) |
|
225
|
6 |
36 |
wantarray ? : |
|
232
|
113 |
36 |
if ($helper_class eq 'Hash::AutoHash::helper') |
|
236
|
30 |
83 |
unless (%$export_ok_hash) |
|
250
|
30 |
6 |
if @$export_ok_list |
|
266
|
6 |
0 |
if (@rename_export_ok) |
|
269
|
2 |
4 |
unless (@our_funcs) |
|
271
|
2 |
0 |
UNIVERSAL::can($_, 'SUBCLASS_EXPORT_OK') ? : |
|
281
|
0 |
40 |
if $skip{$caller_func} |
|
292
|
2 |
6 |
if ($helper_class eq 'Hash::AutoHash::helper') |
|
299
|
0 |
6 |
if @$subclass_export_ok |
|
308
|
676 |
62 |
if defined *{$export_sym;}{'CODE'} |
|
312
|
10 |
52 |
if defined $export_sym |
|
347
|
122 |
118 |
if (my $object = tied %$hash) { } |
|
388
|
302 |
46 |
if (@_) |
|
389
|
94 |
208 |
if ('ARRAY' eq ref $_[0]) |
|
393
|
37 |
57 |
if (not ref $class_or_hash) { } |
|
402
|
102 |
106 |
if ('HASH' eq reftype($_[0]) and not _looks_wrappable($_[0])) |
|
406
|
54 |
52 |
if (_looks_wrappable($_[0])) |
|
415
|
106 |
154 |
if blessed($_[0]) |
|
434
|
12 |
14 |
unless scalar keys %{$_[0];} |
|
435
|
14 |
13 |
scalar %{$_[0];} ? : |
|
436
|
14 |
13 |
scalar %{$_[0];} ? : |
|
443
|
8 |
41 |
if (not defined $$autohash_ref) { } |
|
502
|
205 |
171 |
if 'REF' eq ref $ref |
|
503
|
171 |
205 |
if 'HASH' eq ref $ref |
|
504
|
171 |
205 |
if ($hash) |
|
507
|
91 |
80 |
if 'Hash::AutoHash::alias' eq ref $tied |
|
509
|
296 |
80 |
if ($autohash) |
|
511
|
57 |
239 |
if 'Hash::AutoHash::alias' eq ref $tied |
|
513
|
208 |
168 |
unless @_ and $tied |
|
531
|
19 |
164 |
if (@_ == 2 and 'ARRAY' eq ref $_[0] and 'ARRAY' eq ref $_[1]) { } |
|
551
|
0 |
0 |
if $object |