Branch Coverage

blib/lib/WWW/Domain/Registry/Joker.pm
Criterion Covered Total %
branch 0 58 0.0


line true false branch
123 0 0 if (defined $obj) { }
0 0 elsif (not defined $self->{'lwp'}) { }
124 0 0 if (index(ref $obj, '::') == -1 or not $obj->isa('LWP::UserAgent'))
152 0 0 if (%param)
173 0 0 unless defined $self->{'username'} and defined $self->{'password'}
181 0 0 if defined $resp->{'Error'}
182 0 0 unless $resp->{'success'}
184 0 0 unless defined $resp->{'code'} and $resp->{'code'} == 0
186 0 0 unless defined $resp->{'Auth-Sid'}
219 0 0 unless (defined $self->{'authsid'})
220 0 0 unless $self->login
230 0 0 if defined $resp->{'Error'}
231 0 0 unless $resp->{'success'}
233 0 0 unless defined $resp->{'code'} and $resp->{'code'} == 0
235 0 0 unless (/^(\S+)\s+(\S+)$/)
267 0 0 unless (defined $self->{'authsid'})
268 0 0 unless $self->login
271 0 0 if (defined $data{$_} and length $data{$_}) { }
0 0 elsif ($type eq 'domain-owner-change' or $type =~ /-modify$/) { }
286 0 0 if defined $resp->{'Error'}
287 0 0 unless $resp->{'success'}
289 0 0 unless defined $resp->{'code'} and $resp->{'code'} == 0
291 0 0 unless defined $resp->{'Proc-ID'}
312 0 0 unless (defined $self->{'authsid'})
313 0 0 unless $self->login
322 0 0 if defined $resp->{'Error'}
323 0 0 unless $resp->{'success'}
325 0 0 unless defined $resp->{'code'} and $resp->{'code'} == 0
329 0 0 if ($#r != 6)