Branch Coverage

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


line true false branch
104 0 0 unless $mes->is_success
107 0 0 unless defined $chkdata
115 0 0 if ($n eq 'name') { }
0 0 elsif ($n eq 'reason') { }
133 0 0 defined $rd && ref $rd eq 'HASH' && exists $rd->{'hosts'} && $rd->{'hosts'} =~ /^(?:all|del|sub|none)$/ ? :
135 0 0 if Net::DRI::Util::has_auth($rd)
144 0 0 unless $mes->is_success
146 0 0 unless defined $infdata
154 0 0 if ($name eq 'name') { }
0 0 elsif ($name eq 'roid') { }
0 0 elsif ($name eq 'status') { }
0 0 elsif ($name eq 'registrant') { }
0 0 elsif ($name eq 'contact') { }
0 0 elsif ($name eq 'ns') { }
0 0 elsif ($name eq 'host') { }
0 0 elsif ($name =~ /^(clID|crID|upID)$/) { }
0 0 elsif ($name =~ /^(crDate|upDate|trDate|exDate)$/) { }
0 0 elsif ($name eq 'authInfo') { }
168 0 0 unless exists $ccache{$id}
173 0 0 unless exists $ccache{$id}
195 0 0 if @host
204 0 0 if Net::DRI::Util::has_auth($rd)
213 0 0 unless $mes->is_success
216 0 0 unless defined $trndata
221 0 0 if ($name eq 'name') { }
0 0 elsif ($name =~ /^(trStatus|reID|acID)$/) { }
0 0 elsif ($name =~ /^(reDate|acDate|exDate)$/) { }
246 0 0 if ($def and ref $def eq 'HASH' and exists $def->{'domain_create'} and ref $def->{'domain_create'} eq 'HASH')
248 0 0 unless $rd and ref $rd eq 'HASH' and keys %$rd
251 0 0 if exists $rd->{$k}
257 0 0 if Net::DRI::Util::has_duration($rd)
260 0 0 if Net::DRI::Util::has_ns($rd)
263 0 0 if (Net::DRI::Util::has_contact($rd))
267 0 0 if @o and Net::DRI::Util::isa_contact($o[0])
272 0 0 unless Net::DRI::Util::has_auth($rd)
282 0 0 unless $mes->is_success
285 0 0 unless defined $credata
290 0 0 if ($name eq 'name') { }
0 0 elsif ($name =~ /^(crDate|exDate)$/) { }
315 0 0 unless Net::DRI::Util::has_key($rd, 'current_expiration')
317 0 0 if ref $curexp and Net::DRI::Util::check_isa($curexp, 'DateTime')
318 0 0 unless $curexp =~ /^\d{4}-\d{2}-\d{2}$/
323 0 0 if Net::DRI::Util::has_duration($rd)
333 0 0 unless $mes->is_success
336 0 0 unless defined $rendata
341 0 0 if ($name eq 'name') { }
0 0 elsif ($name =~ /^(exDate)$/) { }
359 0 0 if Net::DRI::Util::has_duration($rd)
360 0 0 if Net::DRI::Util::has_auth($rd)
369 0 0 Net::DRI::Util::has_key($rd, 'approve') && $rd->{'approve'} ? :
370 0 0 if Net::DRI::Util::has_auth($rd)
380 0 0 if Net::DRI::Util::has_auth($rd)
390 0 0 unless Net::DRI::Util::isa_changes($todo)
400 0 0 if Net::DRI::Util::isa_hosts($nsadd)
401 0 0 if Net::DRI::Util::isa_contactset($cadd)
402 0 0 if Net::DRI::Util::isa_statuslist($sadd)
403 0 0 if Net::DRI::Util::isa_hosts($nsdel)
404 0 0 if Net::DRI::Util::isa_contactset($cdel)
405 0 0 if Net::DRI::Util::isa_statuslist($sdel)
408 0 0 if @add
409 0 0 if @del
413 0 0 if Net::DRI::Util::isa_contact($chg)
415 0 0 if $chg and ref $chg eq 'HASH' and exists $chg->{'pw'}
416 0 0 if @chg
428 0 0 unless $mes->is_success
431 0 0 unless defined $pandata
436 0 0 if ($name eq 'name') { }
0 0 elsif ($name eq 'paTRID') { }
0 0 elsif ($name eq 'paDate') { }
445 0 0 if defined $tmp