| line |
true |
false |
branch |
|
50
|
4 |
10 |
if $api |
|
58
|
0 |
70 |
if exists $params{$key} |
|
71
|
0 |
0 |
'ARRAY' eq ref $@ ? : |
|
|
0 |
14 |
if ($@) |
|
131
|
14 |
0 |
'ARRAY' eq ref $@ ? : |
|
|
14 |
38 |
if ($@) |
|
139
|
11 |
27 |
if ($type eq 'poll') |
|
140
|
4 |
1 |
@$resp == 1 ? : |
|
|
6 |
5 |
wantarray ? : |
|
146
|
1 |
26 |
ref($resp) =~ /Exception/ ? : |
|
246
|
24 |
4 |
unless $config->$predicate |
|
256
|
12 |
2 |
if $config->_is_default('api_method_class') |
|
265
|
0 |
14 |
unless $actual_m_class eq $std_m_class or $actual_m_class->isa($std_m_class) |
|
282
|
2 |
2 |
unless $api->isa($api_class) |
|
297
|
4 |
10 |
if ($api) { } |
|
317
|
4 |
0 |
if ($api->get_poll_handlers) |
|
339
|
0 |
10 |
unless $resp->{'success'} |
|
341
|
0 |
10 |
unless length $resp->{'content'} |
|
368
|
0 |
20 |
unless $part =~ /$api_regex/ |
|
391
|
44 |
13 |
if ($type eq 'remoting' or $type eq 'polling') |
|
394
|
0 |
44 |
unless $api |
|
402
|
14 |
0 |
$type eq 'polling' ? : |
|
|
30 |
14 |
$type eq 'remoting' ? : |
|
|
13 |
44 |
$type eq 'api' ? : |
|
410
|
54 |
3 |
$port ? : |
|
432
|
6 |
24 |
if (my $xcpt = $@) |
|
455
|
5 |
27 |
if (my $xcpt = $@) |
|
482
|
2 |
7 |
if $upload |
|
489
|
0 |
9 |
if (my $xcpt = $@) |
|
503
|
1 |
8 |
unless -r $file |
|
506
|
8 |
0 |
if $upload |
|
515
|
2 |
6 |
if $meta_json |
|
534
|
2 |
6 |
if ($metadata) |
|
538
|
0 |
2 |
if ($@) |
|
559
|
11 |
41 |
$type eq 'poll' ? : |
|
575
|
0 |
38 |
unless ($response->{'success'}) |
|
578
|
0 |
0 |
$response->{'status'} == 599 ? : |
|
600
|
1 |
31 |
unless $action |
|
604
|
1 |
30 |
unless $method |
|
651
|
0 |
9 |
unless $action |
|
655
|
0 |
9 |
unless $method |
|
661
|
1 |
7 |
$upload ? : |
|
666
|
1 |
7 |
$upload ? : |
|
733
|
19 |
0 |
if exists $arg{'metadata'} |
|
783
|
8 |
0 |
if (open my $fh, '<', $filename) |
|
791
|
1 |
0 |
if $result |
|
804
|
1 |
1 |
if $boundary |
|
861
|
1 |
26 |
if 'HASH' eq ref $content and $content->{'type'} eq 'exception' |
|
888
|
0 |
8 |
if 'HASH' ne ref $ev and 'ARRAY' ne ref $ev or 'HASH' eq ref $ev and $ev->{'name'} eq '__NONE__' || $ev->{'name'} eq '' || $ev->{'type'} ne 'event' |
|
895
|
2 |
8 |
'ARRAY' eq ref $ev ? : |
|
915
|
8 |
30 |
if ($body =~ /$re/) |
|
933
|
26 |
14 |
unless $cookie_jar |
|
937
|
4 |
10 |
if ('HTTP::Cookies' eq ref $cookie_jar) { } |
|
944
|
14 |
0 |
if $cookies |
|
974
|
0 |
10 |
unless 'HASH' eq ref $cookie_jar |