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