Branch Coverage

blib/lib/Net/DRI/Data/ContactSet.pm
Criterion Covered Total %
branch 27 82 32.9


line true false branch
120 3 1 if (@r)
122 1 2 if defined $r[0] and ref $r[0] eq 'HASH'
123 0 3 unless @r % 2 == 0
126 1 6 ref $ids eq 'ARRAY' ? :
128 0 9 Net::DRI::Util::isa_contact($id) ? :
146 1 2 unless defined $ctype
147 1 1 exists $$self{'c'}{$ctype} && @{$$self{'c'}{$ctype};} ? :
154 0 0 @a ? :
162 0 3 defined $i && $i eq $id ? :
163 0 9 if @p
170 0 9 unless defined $cobj
172 7 2 if defined $ctype and not exists $$c{$ctype}
176 6 9 if defined $ctype and $k ne $ctype
177 9 0 if ($id)
180 0 9 if (defined $p)
194 0 0 unless defined $ctype
196 0 0 if defined $ctype and not exists $$c{$ctype}
198 0 0 unless $id
201 0 0 if defined $ctype and $k ne $ctype
203 0 0 unless defined $p
220 0 0 unless defined $robj
222 0 0 if defined $ctype and not exists $$c{$ctype}
225 0 0 if defined $ctype and $k ne $ctype
226 0 0 ref $robj eq 'ARRAY' ? :
234 0 6 unless defined $ctype
236 0 6 unless exists $$c{$ctype}
237 2 4 wantarray ? :
251 0 0 unless defined $other and ref $other eq ref $self
254 0 0 unless keys %$c1 == keys %$c2
255 0 0 if grep {not exists $$c1{$_};} keys %$c2
256 0 0 if grep {not exists $$c2{$_};} keys %$c1
261 0 0 if grep {not exists $tmp2{$_};} keys %tmp1
262 0 0 if grep {not exists $tmp1{$_};} keys %tmp2
271 0 0 unless defined $cobj
273 0 0 if defined $ctype and not exists $$c{$ctype}
274 0 0 ref $cobj ? :
275 0 0 unless defined $id and $id
278 0 0 if defined $ctype and $k ne $ctype
279 0 0 if defined $self->_pos($k, $id)
289 0 5 unless $attr =~ /[^A-Z]/
292 0 5 unless ($ctype) = $attr =~ /^contact_(\S+)$/