| line |
true |
false |
branch |
|
17
|
0 |
1 |
@_ % 2 ? : |
|
20
|
0 |
3 |
unless $args{$_} |
|
24
|
1 |
0 |
unless $args{'host'} =~ m[^https?\://] |
|
35
|
0 |
0 |
if exists $self->{'ua'} |
|
50
|
0 |
0 |
@_ % 2 ? : |
|
52
|
0 |
0 |
if %args |
|
59
|
0 |
0 |
unless $id |
|
60
|
0 |
0 |
unless my $user = $self->get_users('USER_ID', $id) |
|
67
|
1 |
0 |
unless my(@tokens) = @_ |
|
75
|
0 |
0 |
@_ % 2 ? : |
|
77
|
0 |
0 |
unless $args{'USER_ID'} |
|
78
|
0 |
0 |
unless $args{'SETUP_ID'} |
|
81
|
0 |
0 |
if %args |
|
88
|
0 |
0 |
@_ % 2 ? : |
|
90
|
0 |
0 |
unless $args{'FROM_DATE'} |
|
93
|
0 |
0 |
if %args |
|
106
|
0 |
0 |
%params ? : |
|
111
|
0 |
0 |
if ($tx->res->headers->content_type and $tx->res->headers->content_type =~ m[text/xml]) |
|
114
|
0 |
0 |
unless ($tx->success) |
|
127
|
1 |
0 |
unless $token |
|
129
|
0 |
0 |
unless my $token_info = $self->decode_token($token) |