| 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' |