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