Branch Coverage

blib/lib/Tie/Array/CustomStorage.pm
Criterion Covered Total %
branch 29 52 55.7


line true false branch
29 1 3 unless defined *{$_[0] . '::';}
32 0 5 if (defined $args{'autovivify'})
38 1 4 if (defined $args{'tie_array'})
41 0 1 ref $p ? :
49 1 4 if (defined $args{'class_storage'}) { }
2 2 elsif (defined $args{'tie_storage'}) { }
1 1 elsif (defined $args{'init_storage'}) { }
52 0 1 ref $p ? :
60 2 0 if defined $init_obj
63 1 0 $autovivify ? :
70 2 0 ref $p ? :
77 2 2 if defined $init_obj
95 0 5 if %args
109 0 0 if (defined $obj) { }
125 6 6 unless defined $$self{'data'}[$idx]
144 7 0 unless defined $h_obj
147 0 0 $h_obj->can('get_data_ref') ? :
0 0 defined $$h_obj{'data'} ? :
0 0 defined $$h_obj{'DATA'} ? :
0 0 $h_obj->isa('Tie::StdArray') ? :
163 0 1 unless defined $$self{'data'}[$idx]
176 2 5 if (defined $$self{'class_storage'} and defined $data)
178 1 1 if (ref $data eq $$self{'class_storage'}) { }
191 4 1 unless defined $$self{'data'}[$idx]
203 0 0 if $old == $size
205 0 0 if ($size < $old)