| line |
true |
false |
branch |
|
60
|
0 |
1 |
ref $this ? : |
|
63
|
1 |
0 |
if @_ |
|
84
|
0 |
0 |
if @_ |
|
85
|
0 |
0 |
unless defined $self->{'http_hostname'} |
|
97
|
1 |
1 |
if @_ |
|
98
|
0 |
2 |
unless $self->{'client_id'} |
|
110
|
1 |
1 |
if @_ |
|
111
|
0 |
2 |
unless $self->{'client_secret'} |
|
127
|
0 |
0 |
if @_ |
|
128
|
0 |
0 |
unless $self->{'api_version'} |
|
134
|
0 |
0 |
if @_ |
|
135
|
0 |
0 |
unless $self->{'_debug'} |
|
171
|
0 |
0 |
defined $input ? : |
|
172
|
0 |
0 |
$api_destination =~ /\Atoken\b/ ? : |
|
173
|
0 |
0 |
$is_token ? : |
|
180
|
0 |
0 |
if $is_token |
|
182
|
0 |
0 |
$is_token ? : |
|
195
|
0 |
0 |
if ($is_token) { } |
|
205
|
0 |
0 |
if $self->_debug > 1 |
|
207
|
0 |
0 |
if $self->_debug |
|
209
|
0 |
0 |
unless $status eq 200 |
|
214
|
0 |
0 |
if $error |
|
215
|
0 |
0 |
if $self->_debug > 2 |
|
216
|
0 |
0 |
unless $response_decoded->{'success'} |
|
239
|
0 |
0 |
if (defined $self->{'_access_token_data'}) |
|
241
|
0 |
0 |
if &Time::HiRes::time() > $self->{'_access_token_data'}{'expire_time'} |
|
243
|
0 |
0 |
unless (defined $self->{'_access_token_data'}) |
|
265
|
0 |
0 |
unless my $access_token = $self->{'_access_token_data'}{'result'}{'access_token'} |
|
312
|
0 |
0 |
unless my $deviceid = shift() |
|
328
|
0 |
0 |
unless ($self->{'ua'}) |