| line |
true |
false |
branch |
|
43
|
0 |
3 |
if ref $pkg |
|
47
|
0 |
3 |
unless $param{'api_key'} |
|
65
|
0 |
4 |
if @_ |
|
66
|
1 |
3 |
if $$obj{'user_agent'} |
|
75
|
0 |
4 |
unless my $action = $param{'action'} |
|
81
|
0 |
4 |
if ($port ne '' and $port != 80) { } |
|
101
|
0 |
4 |
unless exists $$REQUEST_PARAMS{$action} |
|
113
|
14 |
14 |
if exists $$param{$_} |
|
115
|
0 |
14 |
unless defined $val |
|
117
|
14 |
0 |
if defined $val |
|
123
|
12 |
14 |
if exists $$param{$_} |
|
125
|
12 |
2 |
if defined $val |
|
133
|
0 |
4 |
if ($response and not $response->is_success) { } |
|
|
0 |
4 |
elsif (not $response) { } |
|
150
|
0 |
4 |
if ($content =~ /^\s*<\?xml/) { } |
|
162
|
23 |
2 |
if (defined $val) |
|
213
|
0 |
0 |
ref $pkg ? : |
|
218
|
0 |
0 |
ref $pkg ? : |