Branch Coverage

blib/lib/Net/DRI/Protocol/EPP/Extensions/CAT/DefensiveRegistration.pm
Criterion Covered Total %
branch 0 148 0.0


line true false branch
85 0 0 wantarray ? :
94 0 0 ref $id eq 'ARRAY' ? :
96 0 0 unless $n and not ref $n and Net::DRI::Util::xml_is_token($n, 3, 16)
100 0 0 unless @id
110 0 0 unless defined $d and $d
111 0 0 unless Net::DRI::Util::xml_is_token($d, 1, 63)
118 0 0 unless defined $d and $d
119 0 0 if Net::DRI::Util::isa_contact($d, 'Net::DRI::Data::Contact::CAT')
120 0 0 unless Net::DRI::Util::xml_is_token($d, 3, 16)
121 0 0 $type eq 'registrant' ? :
130 0 0 if $t eq 'registrant'
140 0 0 unless defined $d and ref $d eq 'HASH' and exists $d->{'pw'} and $d->{'pw'}
141 0 0 unless Net::DRI::Util::xml_is_normalizedstring($d->{'pw'})
142 0 0 exists $d->{'roid'} ? :
148 0 0 unless defined $d and $d
149 0 0 unless Net::DRI::Util::xml_is_token($d, undef, 128)
156 0 0 unless defined $d and ref $d eq 'HASH' and keys %$d
159 0 0 if (exists $t{'name'})
161 0 0 unless Net::DRI::Util::xml_is_token($t{'name'}, 1)
164 0 0 if (exists $t{'issue_date'})
166 0 0 unless Net::DRI::Util::check_isa($t{'issue_date'}, 'DateTime')
169 0 0 if (exists $t{'country'})
171 0 0 unless $t{'country'} and exists $Net::DRI::Util::CCA2{uc $t{'country'}}
174 0 0 if (exists $t{'number'})
176 0 0 unless Net::DRI::Util::xml_is_token($t{'number'}, 1)
204 0 0 unless $mes->is_success
208 0 0 unless defined $chkdata
216 0 0 if ($n eq 'id') { }
0 0 elsif ($n eq 'reason') { }
234 0 0 if Net::DRI::Util::has_auth($rd)
243 0 0 unless $mes->is_success
247 0 0 unless defined $infdata
255 0 0 if ($name eq 'id') { }
0 0 elsif ($name eq 'roid') { }
0 0 elsif ($name eq 'pattern') { }
0 0 elsif ($name eq 'status') { }
0 0 elsif ($name eq 'registrant') { }
0 0 elsif ($name eq 'contact') { }
0 0 elsif ($name =~ /^(clID|crID|upID)$/) { }
0 0 elsif ($name =~ /^(crDate|upDate|exDate)$/) { }
0 0 elsif ($name eq 'authInfo') { }
0 0 elsif ($name eq 'maintainer') { }
0 0 elsif ($name eq 'trademark') { }
271 0 0 unless exists $ccache{$id}
276 0 0 unless exists $ccache{$id}
295 0 0 if ($name2 eq 'name') { }
0 0 elsif ($name2 eq 'issueDate') { }
0 0 elsif ($name2 eq 'country') { }
0 0 elsif ($name2 eq 'number') { }
328 0 0 unless defined $ri and ref $ri eq 'HASH' and keys %$ri
331 0 0 if (exists $ri->{'duration'})
338 0 0 unless exists $ri->{'pattern'} and $ri->{'pattern'} and Net::DRI::Util::xml_is_token($ri->{'pattern'}, 1, 63)
340 0 0 unless Net::DRI::Util::has_contact($ri)
346 0 0 if exists $ri->{'maintainer'}
348 0 0 unless @$tmp == 5
365 0 0 defined $rd && ref $rd eq 'HASH' && exists $rd->{'duration'} ? :
366 0 0 defined $rd && ref $rd eq 'HASH' && exists $rd->{'current_expiration'} ? :
367 0 0 unless defined $curexp
368 0 0 if ref $curexp and Net::DRI::Util::is_class($curexp, 'DateTime')
369 0 0 unless $curexp =~ /^\d{4}-\d{2}-\d{2}$/
373 0 0 if (defined $period)
388 0 0 unless Net::DRI::Util::isa_changes($todo)
390 0 0 if (grep {not /^(?:add|del)$/;} $todo->types('status') or grep {not /^(?:add|del)$/;} $todo->types('contact') or grep {not /^set$/;} $todo->types('registrant') or grep {not /^set$/;} $todo->types('auth') or grep {not /^set$/;} $todo->types('maintainer') or grep {not /^set$/;} $todo->types('trademark'))
409 0 0 if $cadd
410 0 0 if $sadd
411 0 0 if $cdel
412 0 0 if $sdel
414 0 0 if @add
415 0 0 if @del
420 0 0 if Net::DRI::Util::isa_contact($chg, 'Net::DRI::Data::Contact::CAT')
422 0 0 if $chg and ref $chg
424 0 0 if $chg
426 0 0 if $chg and ref $chg
428 0 0 if @chg