| line |
true |
false |
branch |
|
61
|
0 |
1 |
ref $this ? : |
|
64
|
1 |
0 |
if @_ |
|
85
|
0 |
0 |
if @_ |
|
86
|
0 |
0 |
unless defined $self->{'http_hostname'} |
|
98
|
1 |
1 |
if @_ |
|
99
|
0 |
2 |
unless $self->{'client_id'} |
|
111
|
1 |
1 |
if @_ |
|
112
|
0 |
2 |
unless $self->{'client_secret'} |
|
118
|
0 |
0 |
if @_ |
|
119
|
0 |
0 |
unless $self->{'_debug'} |
|
155
|
0 |
0 |
defined $input ? : |
|
156
|
0 |
0 |
$api_destination =~ m[v[0-9\.]+/token\b] ? : |
|
164
|
0 |
0 |
if ($is_token) { } |
|
183
|
0 |
0 |
if ($is_token) { } |
|
193
|
0 |
0 |
if $self->_debug > 1 |
|
195
|
0 |
0 |
if $self->_debug |
|
197
|
0 |
0 |
unless $status eq 200 |
|
202
|
0 |
0 |
if $error |
|
203
|
0 |
0 |
if $self->_debug > 2 |
|
204
|
0 |
0 |
unless $response_decoded->{'success'} |
|
229
|
0 |
0 |
if (defined $self->{'_access_token_data'}) |
|
231
|
0 |
0 |
if &Time::HiRes::time() > $self->{'_access_token_data'}{'expire_time'} |
|
233
|
0 |
0 |
unless (defined $self->{'_access_token_data'}) |
|
255
|
0 |
0 |
unless my $access_token = $self->{'_access_token_data'}{'result'}{'access_token'} |
|
287
|
0 |
0 |
unless defined $code |
|
414
|
0 |
0 |
unless my $deviceid = shift() |
|
430
|
0 |
0 |
unless ($self->{'ua'}) |