| line |
true |
false |
branch |
|
50
|
1 |
10 |
if $api |
|
57
|
0 |
55 |
if exists $params{$key} |
|
71
|
0 |
0 |
'ARRAY' eq ref $@ ? : |
|
|
0 |
11 |
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
|
22 |
0 |
unless $config->$predicate |
|
256
|
11 |
0 |
if $config->_is_default('api_method_class') |
|
265
|
0 |
11 |
unless $actual_m_class eq $std_m_class or $actual_m_class->isa($std_m_class) |
|
282
|
1 |
0 |
unless $api->isa($api_class) |
|
297
|
1 |
10 |
if ($api) { } |
|
317
|
1 |
0 |
if ($api->get_poll_handlers) |
|
338
|
0 |
10 |
unless $$resp{'success'} |
|
341
|
0 |
10 |
unless length $$resp{'content'} |
|
368
|
0 |
20 |
unless $part =~ /$api_regex/ |
|
391
|
38 |
10 |
if ($type eq 'remoting' or $type eq 'polling') |
|
394
|
0 |
38 |
unless $api |
|
401
|
11 |
0 |
$type eq 'polling' ? : |
|
|
27 |
11 |
$type eq 'remoting' ? : |
|
|
10 |
38 |
$type eq 'api' ? : |
|
409
|
48 |
0 |
$port ? : |
|
431
|
6 |
24 |
if (my $xcpt = $@) |
|
454
|
5 |
27 |
if (my $xcpt = $@) |
|
481
|
2 |
7 |
if $upload |
|
488
|
0 |
9 |
if (my $xcpt = $@) |
|
502
|
1 |
3 |
unless -r $file |
|
505
|
8 |
0 |
if $upload |
|
514
|
2 |
6 |
if $meta_json |
|
533
|
2 |
6 |
if ($metadata) |
|
537
|
0 |
2 |
if ($@) |
|
558
|
11 |
41 |
$type eq 'poll' ? : |
|
588
|
1 |
31 |
unless $action |
|
592
|
1 |
30 |
unless $method |
|
639
|
0 |
9 |
unless $action |
|
643
|
0 |
9 |
unless $method |
|
649
|
1 |
7 |
$upload ? : |
|
654
|
1 |
7 |
$upload ? : |
|
720
|
19 |
0 |
if exists $arg{'metadata'} |
|
769
|
3 |
0 |
if (open my $fh, '<', $filename) |
|
777
|
1 |
0 |
if $result |
|
790
|
1 |
1 |
if $boundary |
|
845
|
0 |
27 |
unless $$resp{'success'} |
|
848
|
0 |
27 |
if $$resp{'status'} > 500 |
|
852
|
1 |
26 |
if 'HASH' eq ref $content and $$content{'type'} eq 'exception' |
|
868
|
0 |
11 |
unless $$resp{'success'} |
|
879
|
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' |
|
890
|
2 |
8 |
'ARRAY' eq ref $ev ? : |
|
910
|
8 |
30 |
if ($body =~ /$re/) |
|
928
|
26 |
14 |
unless $cookie_jar |
|
932
|
4 |
10 |
if ('HTTP::Cookies' eq ref $cookie_jar) { } |
|
939
|
14 |
0 |
if $cookies |
|
969
|
0 |
10 |
unless 'HASH' eq ref $cookie_jar |