Branch Coverage

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


line true false branch
125 0 0 if (defined $obj) { }
0 0 elsif (not defined $$self{'lwp'}) { }
126 0 0 if (index(ref $obj, '::') == -1 or not $obj->isa('LWP::UserAgent'))
154 0 0 if (%param)
174 0 0 unless defined $$self{'username'} and defined $$self{'password'}
183 0 0 if defined $$resp{'Error'}
184 0 0 unless $$resp{'success'}
185 0 0 unless defined $$resp{'code'} and $$resp{'code'} == 0
187 0 0 unless defined $$resp{'Auth-Sid'}
221 0 0 unless (defined $$self{'authsid'})
222 0 0 unless $self->login
232 0 0 if defined $$resp{'Error'}
233 0 0 unless $$resp{'success'}
234 0 0 unless defined $$resp{'code'} and $$resp{'code'} == 0
237 0 0 unless (/^(\S+)\s+(\S+)$/)
269 0 0 unless (defined $$self{'authsid'})
270 0 0 unless $self->login
273 0 0 if (defined $data{$_} and length $data{$_}) { }
0 0 elsif ($type eq 'domain-owner-change' or $type =~ /-modify$/) { }
288 0 0 if defined $$resp{'Error'}
289 0 0 unless $$resp{'success'}
290 0 0 unless defined $$resp{'code'} and $$resp{'code'} == 0
292 0 0 unless defined $$resp{'Proc-ID'}
314 0 0 unless (defined $$self{'authsid'})
315 0 0 unless $self->login
324 0 0 if defined $$resp{'Error'}
325 0 0 unless $$resp{'success'}
326 0 0 unless defined $$resp{'code'} and $$resp{'code'} == 0
331 0 0 if ($#r != 6)