| line |
true |
false |
branch |
|
61
|
26 |
226 |
defined $request_content ? :
|
|
64
|
26 |
226 |
if $request_json
|
|
83
|
250 |
2 |
$response ? :
|
|
|
8 |
244 |
$last_error ? :
|
|
89
|
250 |
2 |
if ($response)
|
|
91
|
245 |
5 |
$decoded_response ? :
|
|
103
|
0 |
252 |
if ($response and Log::Log4perl::appenders()->{"UnitTestCapture"})
|
|
109
|
0 |
0 |
$request_json ? :
|
|
111
|
0 |
0 |
$response->content ? :
|
|
115
|
0 |
0 |
$pretty_request_json ? :
|
|
122
|
8 |
244 |
unless ($response and $response->is_success)
|
|
128
|
0 |
244 |
if $$self{"throttle"}
|
|
146
|
8 |
262 |
unless ($r)
|
|
151
|
18 |
244 |
unless $r->is_success
|
|
152
|
16 |
246 |
if ($r->code =~ /^(403|429|50[0234])$/)
|
|
168
|
143 |
365 |
unless (&blessed($$self{"auth"}))
|
|
175
|
139 |
3 |
if $$self{"config_file"}
|
|
185
|
247 |
5 |
unless $$self{"api_callback"}
|
|
201
|
3 |
2 |
if $api_callback
|
|
227
|
0 |
24 |
unless (shift())->{"transaction"}
|
|
243
|
0 |
252 |
unless $package
|
|
263
|
1 |
15 |
if $max_attempts
|
|
264
|
1 |
15 |
if defined $max_attempts and $max_attempts == 0
|