Branch Coverage

blib/lib/Net/DRI/Protocol/EPP/Core/Contact.pm
Criterion Covered Total %
branch 0 104 0.0


line true false branch
90 0 0 ref $contact eq 'ARRAY' ? :
91 0 0 Net::DRI::Util::isa_contact($_) ? :
93 0 0 unless @c
96 0 0 unless defined $n and $n
97 0 0 unless Net::DRI::Util::xml_is_token($n, 3, 16)
100 0 0 ref $command ? :
105 0 0 if ($tcommand =~ /^(?:info|transfer)$/ and ref $contact[0] and Net::DRI::Util::isa_contact($contact[0]))
129 0 0 unless $mes->is_success
132 0 0 unless defined $chkdata
139 0 0 if ($n eq 'id')
145 0 0 if ($n eq 'reason')
167 0 0 unless $mes->is_success
170 0 0 unless defined $infdata
180 0 0 if ($name eq 'id') { }
0 0 elsif ($name eq 'roid') { }
0 0 elsif ($name eq 'status') { }
0 0 elsif ($name =~ /^(clID|crID|upID)$/) { }
0 0 elsif ($name =~ /^(crDate|upDate|trDate)$/) { }
0 0 elsif ($name eq 'email') { }
0 0 elsif ($name eq 'voice') { }
0 0 elsif ($name eq 'fax') { }
0 0 elsif ($name eq 'postalInfo') { }
0 0 elsif ($name eq 'authInfo') { }
0 0 elsif ($name eq 'disclose') { }
247 0 0 unless $mes->is_success
250 0 0 unless defined $trndata
255 0 0 if ($name eq 'id') { }
0 0 elsif ($name =~ /^(trStatus|reID|acID)$/) { }
0 0 elsif ($name =~ /^(reDate|acDate)$/) { }
278 0 0 unless $az and ref $az and exists $$az{'pw'}
288 0 0 if defined $contact->voice
289 0 0 if defined $contact->fax
290 0 0 if defined $contact->email
303 0 0 unless Net::DRI::Util::isa_contact($contact)
314 0 0 unless $mes->is_success
317 0 0 unless defined $credata
322 0 0 if ($name eq 'id') { }
0 0 elsif ($name =~ /^(crDate)$/) { }
325 0 0 if defined $oname and $oname ne $new
369 0 0 Net::DRI::Util::has_key($ep, 'approve') && $$ep{'approve'} ? :
379 0 0 unless Net::DRI::Util::isa_changes($todo)
385 0 0 if Net::DRI::Util::isa_statuslist($sadd)
386 0 0 if Net::DRI::Util::isa_statuslist($sdel)
389 0 0 if (defined $newc)
391 0 0 unless Net::DRI::Util::isa_contact($newc)
394 0 0 if @c
407 0 0 unless $mes->is_success
410 0 0 unless defined $pandata
415 0 0 if ($name eq 'id') { }
0 0 elsif ($name eq 'paTRID') { }
0 0 elsif ($name eq 'paDate') { }
424 0 0 if defined $tmp