Branch Coverage

blib/lib/Tie/Proxy/Changes.pm
Criterion Covered Total %
branch 30 64 46.8


line true false branch
64 14 1 if defined $index
69 11 4 if $data
80 1 9 if $tiehash_of{$id}
83 0 9 if exists $data_of{$id} and &Scalar::Util::reftype($data_of{$id}) ne 'HASH'
86 3 6 unless $data_of{$id}
105 0 3 if $tiearray_of{$id}
108 0 3 if exists $data_of{$id} and &Scalar::Util::reftype($data_of{$id}) ne 'ARRAY'
111 1 2 unless $data_of{$id}
131 0 2 if $tiescalar_of{$id}
134 0 2 if exists $data_of{$id} and &Scalar::Util::reftype($data_of{$id}) ne 'REF' and &Scalar::Util::reftype($data_of{$id}) ne 'SCALAR'
139 0 2 unless exists $data_of{$id}
158 1 0 if ($data_of{$id})
159 0 1 if (&Scalar::Util::reftype($data_of{$id}))
160 0 0 if (&Scalar::Util::reftype($data_of{$id}) eq 'HASH') { }
0 0 elsif (&Scalar::Util::reftype($data_of{$id}) eq 'ARRAY') { }
0 0 elsif (&Scalar::Util::reftype($data_of{$id}) eq 'REF') { }
0 0 elsif (&Scalar::Util::reftype($data_of{$id}) eq 'SCALAR') { }
185 0 14 unless wantarray
186 13 1 if (exists $index_of{$id})
216 9 4 if (&Scalar::Util::reftype($data_of{$id}) eq 'HASH') { }
2 2 elsif (&Scalar::Util::reftype($data_of{$id}) eq 'ARRAY') { }
240 7 1 if (&Scalar::Util::reftype($data_of{$id}) eq 'HASH') { }
0 1 elsif (&Scalar::Util::reftype($data_of{$id}) eq 'ARRAY') { }
241 5 2 if $data_of{$id}{$key}
245 0 0 if $data_of{$id}[$key]
276 0 0 if (&Scalar::Util::reftype($data_of{$id}) eq 'HASH') { }
287 0 0 if (&Scalar::Util::reftype($data_of{$id}) eq 'HASH') { }
298 0 0 if (&Scalar::Util::reftype($data_of{$id}) eq 'HASH') { }
309 0 0 if (&Scalar::Util::reftype($data_of{$id}) eq 'HASH') { }
360 0 0 @_ ? :
361 0 0 if $off < 0
362 0 0 @_ ? :