| line |
true |
false |
branch |
|
251
|
0 |
3 |
unless (eval {
do {
require Sub::Name;
'Sub::Name'->import('subname');
1
}
}) |
|
258
|
0 |
0 |
if @_ |
|
273
|
2 |
0 |
unless @_ |
|
275
|
0 |
0 |
if ($_ eq 'rpcfault' or $_ eq 'customtype') { } |
|
301
|
0 |
0 |
if (defined $req) { } |
|
312
|
0 |
0 |
unless (eval {
do {
require join('/', split(/::/, $prefix . $req . '.pm', 0));
$req = $prefix . $req;
1
}
} or do {
push @fail, [$prefix . $req, $@];
eval {
do {
require join('/', split(/::/, $req . '.pm', 0));
1
}
}
}) |
|
321
|
0 |
0 |
unless (eval {
do {
$req = $prefix . $default;
require join('/', split(/::/, $req . '.pm', 0));
1
}
}) |
|
335
|
0 |
0 |
unless (ref $$self{'encoder'}) |
|
342
|
0 |
0 |
if ($url and not ref $$self{'ua'}) |
|
364
|
0 |
0 |
if ref $_[0] and ref $_[0] eq 'CODE' |
|
365
|
0 |
0 |
$cb ? : |
|
375
|
0 |
0 |
if ($self->ua->async and not $cb) |
|
381
|
0 |
0 |
unless ($url) |
|
382
|
0 |
0 |
if ($cb) { } |
|
394
|
0 |
0 |
if exists $args{'external_encoding'} |
|
397
|
0 |
0 |
if defined $newurl |
|
413
|
0 |
0 |
unless $res->code == 200 |
|
417
|
0 |
0 |
unless length $text and $text =~ /^\s*<\?xml/s |
|
420
|
0 |
0 |
unless eval {
do {
$$self{'xml_in'} = $text;
@data = $self->encoder->decode($text);
1
}
} |
|
429
|
0 |
0 |
if ref $data[0] eq 'HASH' and exists $data[0]{'fault'} |
|
|
0 |
0 |
if ($cb) |
|
435
|
0 |
0 |
$args{'headers'} ? : |
|
436
|
0 |
0 |
if $cb and defined wantarray |
|
437
|
0 |
0 |
if $cb |
|
438
|
0 |
0 |
if (ref $data[0] eq 'HASH' and exists $data[0]{'fault'}) |
|
442
|
0 |
0 |
@data == 1 ? : |
|
448
|
0 |
0 |
unless my $xml_in = shift() |
|
449
|
0 |
0 |
unless my $handler = shift() |
|
454
|
0 |
0 |
if (ref $res[0] eq 'HASH' and exists $res[0]{'fault'}) { } |
|
460
|
0 |
0 |
if ($@) |
|
462
|
0 |
0 |
defined $faultCode ? : |