| line |
true |
false |
branch |
|
84
|
0 |
1 |
unless ($opts and UNIVERSAL::isa($opts, 'HASH') and exists $opts->{'partner'} || exists $opts->{'user'}) |
|
89
|
2 |
1 |
if (exists $opts->{'partner'} and UNIVERSAL::isa($opts->{'partner'}, 'HASH')) |
|
94
|
2 |
1 |
if (exists $opts->{'user'} and UNIVERSAL::isa($opts->{'user'}, 'HASH')) |
|
101
|
1 |
2 |
wantarray ? : |
|
135
|
0 |
0 |
if (defined $params and not UNIVERSAL::isa($params, 'HASH')) |
|
139
|
0 |
0 |
unless $self->_sanitize_params($name, $params) |
|
148
|
0 |
0 |
unless my $base_url = $self->get_api_url |
|
153
|
0 |
0 |
if (my $output = $api_response->decoded_content) { } |
|
154
|
0 |
0 |
unless my $json = eval {
do {
&decode_json($output)
}
} |
|
166
|
0 |
0 |
unless my $required_params = $self->_fetch_required_params($action, $params) |
|
169
|
0 |
0 |
if (my $check = _check_params($params, $required_params, $optional_params)) |
|
172
|
0 |
0 |
if $check->{'required_params'} |
|
174
|
0 |
0 |
if $check->{'blank_params'} |
|
185
|
0 |
0 |
if ('GET' ne $request->method) |
|
186
|
0 |
0 |
unless my $json = eval {
do {
&encode_json($params)
}
} |
|
217
|
0 |
0 |
if (not exists $required_params->{$param} || exists $optional_params->{$param}) { } |
|
|
0 |
0 |
elsif (not length $params_to_check->{$param}) { } |
|
225
|
0 |
0 |
unless (exists $params_to_check->{$required_param} and defined $params_to_check->{$required_param}) |
|
259
|
0 |
0 |
if ($croak) |