Branch Coverage

blib/lib/Net/DRI/Protocol/RRI/Contact.pm
Criterion Covered Total %
branch 0 152 0.0


line true false branch
86 0 0 ref $contact eq 'ARRAY' ? :
87 0 0 Net::DRI::Util::isa_contact($_) ? :
90 0 0 unless @c
93 0 0 unless defined $n and $n
94 0 0 unless Net::DRI::Util::xml_is_token($n, 3, 32)
97 0 0 ref $command ? :
123 0 0 unless $mes->is_success
126 0 0 unless $chkdata
129 0 0 unless @c and @s
132 0 0 $s[0]->getFirstChild->getData eq 'free' ? :
150 0 0 unless $mes->is_success
153 0 0 unless $infdata
161 0 0 unless $c->nodeType == 1
163 0 0 unless $name
164 0 0 if ($name eq 'handle') { }
0 0 elsif ($name eq 'roid') { }
0 0 elsif ($name eq 'changed') { }
0 0 elsif ($name eq 'type') { }
0 0 elsif ($name eq 'email') { }
0 0 elsif ($name eq 'name') { }
0 0 elsif ($name eq 'organisation') { }
0 0 elsif ($name eq 'sip') { }
0 0 elsif ($name eq 'remarks') { }
0 0 elsif ($name eq 'phone') { }
0 0 elsif ($name eq 'fax') { }
0 0 elsif ($name eq 'postal') { }
0 0 elsif ($name eq 'disclose') { }
168 0 0 if ($oname =~ /^(\w+)-(\d+)-/)
178 0 0 if defined $el
183 0 0 if defined $el
190 0 0 if defined $el
194 0 0 if defined $el
198 0 0 if defined $el
202 0 0 if defined $el
206 0 0 if defined $el
210 0 0 if defined $el
240 0 0 if $ext
247 0 0 $n->getFirstChild ? :
258 0 0 unless $n->nodeType == 1
260 0 0 unless $name
261 0 0 if ($name eq 'city') { }
0 0 elsif ($name eq 'postalCode') { }
0 0 elsif ($name eq 'countryCode') { }
0 0 elsif ($name eq 'address') { }
288 0 0 unless $n->nodeType == 1
290 0 0 unless $name
291 0 0 if ($name =~ /^(name|org|addr)$/) { }
0 0 elsif ($name =~ /^(voice|fax|email)$/) { }
308 0 0 if ($tel =~ /^(\S+)x(\S+)$/) { }
323 0 0 unless $ds and ref $ds
326 0 0 if $key eq 'phone'
327 0 0 if defined $$ds{$key} and $$ds{$key} == 1
345 0 0 if @addr
347 0 0 if @post
349 0 0 if defined $contact->voice
350 0 0 if defined $contact->fax
351 0 0 if defined $contact->email
352 0 0 if defined $contact->sip
353 0 0 if defined $contact->remarks
364 0 0 unless @tmp
365 0 0 if ($what eq 'street') { }
367 0 0 if (defined $tmp[0])
375 0 0 if (defined $tmp[1] and not $loaded)
384 0 0 if (defined $tmp[0])
389 0 0 if (defined $tmp[1] and not $loaded)
403 0 0 unless Net::DRI::Util::isa_contact($contact)
414 0 0 unless $mes->is_success
417 0 0 unless $credata
422 0 0 unless $c->nodeType == 1
424 0 0 if ($name eq 'id') { }
0 0 elsif ($name =~ /^(crDate)$/) { }
427 0 0 if defined $oname and $oname ne $new
445 0 0 unless Net::DRI::Util::isa_changes($todo)
446 0 0 if (grep {not /^(?:add|del)$/;} $todo->types('status') or grep {not /^(?:set)$/;} $todo->types('info'))
456 0 0 if ($newc)
458 0 0 unless Net::DRI::Util::isa_contact($newc)