line |
true |
false |
branch |
93
|
0 |
0 |
unless $mes->is_success |
96
|
0 |
0 |
unless $infdata |
101
|
0 |
0 |
unless $name =~ /^(reg-status|first-bill|recur-bill|auto-bill|next-bill|auto-period|next-period|notes|reseller|renew-not-required)$/ |
111
|
0 |
0 |
unless $mes->is_success |
113
|
0 |
0 |
unless $infdata |
118
|
0 |
0 |
if $name eq 'domainName' |
127
|
0 |
0 |
unless $mes->is_success |
128
|
0 |
0 |
unless my $infdata = $mes->get_response('std-handshake', 'hanData') |
130
|
0 |
0 |
unless my $dl = $infdata->getChildrenByTagNameNS($ns, 'domainListData')->shift |
135
|
0 |
0 |
if $name eq 'domainName' |
148
|
0 |
0 |
if $rd->{$_} and not $rd->{$_} =~ /^(bc|th)$/ |
149
|
0 |
0 |
if $rd->{$_} and not $rd->{$_} =~ /^[+]?\d+$/ && $rd->{$_} < 183 |
150
|
0 |
0 |
if $rd->{$_} and not $rd->{$_} =~ /^[+]?\d+$/ && $rd->{$_} < 10 |
153
|
0 |
0 |
unless $rd->{$_} |
154
|
0 |
0 |
if $rd->{$_} =~ /^(1|Y|YES|TRUE)$/i |
155
|
0 |
0 |
if $rd->{$_} =~ /^(0|N|NO|FALSE)$/i |
156
|
0 |
0 |
unless $rd->{$_} =~ /^(Y|N)$/ |
158
|
0 |
0 |
if @errs |
162
|
0 |
0 |
if defined $rd->{$_} |
171
|
0 |
0 |
unless @n |
182
|
0 |
0 |
if defined $todo->set($_) |
184
|
0 |
0 |
unless $rd |
186
|
0 |
0 |
unless @n |
197
|
0 |
0 |
unless $rd->{'regMonth'} or $rd->{'exMonth'} |
200
|
0 |
0 |
if UNIVERSAL::isa($rd->{$_}, 'DateTime') |
201
|
0 |
0 |
if $rd->{$_} and not $rd->{$_} =~ /^[0-9]{4}-[0-9]{2}$/ |
206
|
0 |
0 |
if $rd->{'regMonth'} |
207
|
0 |
0 |
if $rd->{'exMonth'} |
220
|
0 |
0 |
unless $domain |
221
|
0 |
0 |
unless Net::DRI::Util::is_hostname($domain) |
233
|
0 |
0 |
unless $domain |
234
|
0 |
0 |
unless $rd->{'registrar_tag'} |
235
|
0 |
0 |
if defined $rd->{'account_id'} and $domain ne 'alldomains.co.uk' |
237
|
0 |
0 |
defined $rd->{'account_id'} ? : |
247
|
0 |
0 |
unless $rd->{'case_id'} |
250
|
0 |
0 |
if $rd->{'registrant'} |
260
|
0 |
0 |
unless $rd->{'case_id'} |
271
|
0 |
0 |
unless $domain |
272
|
0 |
0 |
unless $rd->{'type'} and $rd->{'type'} eq 'investigation' |