| line |
true |
false |
branch |
|
85
|
0 |
1 |
unless $self->init(@_) |
|
93
|
0 |
1 |
unless ($$args{'transport'}) |
|
98
|
0 |
1 |
unless $self->Transport($$args{'transport'}, 'debug', $$args{'debug'}) |
|
168
|
0 |
2 |
unless ($$args{'name'} and $$args{'url'}) |
|
176
|
0 |
2 |
if ($$self{'__ima'} eq 'Frontier::Client') { } |
|
|
0 |
2 |
elsif ($$self{'__ima'} eq 'XMLRPC::Lite') { } |
|
|
0 |
2 |
elsif ($$self{'__ima'} eq 'SOAP::Lite') { } |
|
|
2 |
0 |
elsif ($$self{'__ima'} eq 'LWP::Simple') { } |
|
186
|
0 |
0 |
if ($$args{'changesurl'} and $$args{'category'}) |
|
200
|
0 |
0 |
if ($$args{'changesurl'} and $$args{'category'}) |
|
215
|
0 |
0 |
if ($$args{'changesurl'} and $$args{'category'}) |
|
228
|
0 |
2 |
unless ($meth) |
|
237
|
0 |
2 |
!$$res{'flerror'} ? : |
|
277
|
0 |
0 |
unless ($$args{'name'} and $$args{'url'}) |
|
285
|
0 |
0 |
if ($$self{'__ima'} eq 'Frontier::Client') { } |
|
|
0 |
0 |
elsif ($$self{'__ima'} eq 'XMLRPC::Lite') { } |
|
|
0 |
0 |
elsif ($$self{'__ima'} eq 'SOAP::Lite') { } |
|
|
0 |
0 |
elsif ($$self{'__ima'} eq 'LWP::Simple') { } |
|
323
|
0 |
0 |
unless ($meth) |
|
332
|
0 |
0 |
!$$res{'flerror'} ? : |
|
343
|
1 |
0 |
exists $$self{'_message'} ? : |
|
369
|
1 |
3 |
if (defined $transport) |
|
371
|
0 |
1 |
if (!$transport =~ /^(xmlrpc|soap|rest)$/i) |
|
378
|
0 |
1 |
unless ($self->_client('debug', $$args{'debug'})) |
|
407
|
0 |
2 |
if ($$self{'__ima'} eq 'Frontier::Client') { } |
|
|
0 |
2 |
elsif ($$self{'__ima'} =~ /^(SOAP|XMLRPC)::Lite$/) { } |
|
|
2 |
0 |
elsif ($$self{'__ima'} eq 'LWP::Simple') { } |
|
412
|
0 |
0 |
if ($@) |
|
418
|
0 |
0 |
if ($$res{'flerror'}) |
|
452
|
0 |
0 |
unless ($$self{'_xmlrpc'}) |
|
454
|
0 |
0 |
if (&_require('Frontier::Client')) { } |
|
|
0 |
0 |
elsif (&_require('XMLRPC::Lite')) { } |
|
485
|
0 |
0 |
unless ($$self{'_soap'}) |
|
488
|
0 |
0 |
unless &_require($class) |
|
490
|
0 |
0 |
if ($SOAP::Lite::VERSION < 0.55) |
|
527
|
0 |
0 |
carp(ref $res) ? : |
|
533
|
0 |
0 |
if ($$args{'debug'}) |
|
541
|
0 |
3 |
unless &_require($class) |
|
551
|
0 |
3 |
unless eval "require $class" |
|
573
|
1 |
1 |
if ($$args{'changesurl'}) { } |
|
585
|
2 |
0 |
unless ($html) |
|
593
|
0 |
0 |
if ($@) |
|
599
|
0 |
0 |
unless ($html_parser) |
|
618
|
0 |
0 |
if ($tag eq 'html') |
|
628
|
0 |
0 |
unless $chars |
|
632
|
0 |
0 |
unless $chars |
|
636
|
0 |
0 |
if ($chars eq 'Enter the name and URL of a weblog that has been updated.') |
|
643
|
0 |
0 |
if ($chars =~ /^Name:/) |
|
647
|
0 |
0 |
if ($$parser{'__ok'}) |