| line |
true |
false |
branch |
|
32
|
0 |
2 |
unless $class ne "Net::OAuth2::Profile" |
|
48
|
0 |
2 |
unless my $id = $self->{'NOP_id'} = $args->{'client_id'} |
|
50
|
0 |
2 |
unless my $secret = $self->{'NOP_secret'} = $args->{'client_secret'} |
|
66
|
0 |
2 |
exists $args->{'secrets_in_params'} ? : |
|
108
|
0 |
0 |
if (@_ == 1) { } |
|
124
|
1 |
9 |
@_ == 1 && ref $_[0] eq 'HASH' ? : |
|
126
|
6 |
4 |
$site ? : |
|
127
|
2 |
8 |
if @params |
|
138
|
0 |
0 |
if ($scheme eq 'auth-header') { } |
|
|
0 |
0 |
elsif ($scheme eq 'uri-query') { } |
|
|
0 |
0 |
elsif ($scheme eq 'form-body') { } |
|
151
|
0 |
0 |
unless $request->headers->content_type eq "application/x-www-form-urlencoded" |
|
157
|
0 |
0 |
$content && length $content ? : |
|
170
|
1 |
2 |
ref $params eq 'HASH' ? : |
|
178
|
0 |
3 |
unless ($self->{'NOP_show_secret'}) |
|
186
|
1 |
2 |
if ($method eq 'POST') { } |
|
|
2 |
0 |
elsif ($method eq 'GET') { } |
|
197
|
0 |
2 |
&blessed($uri_base) && $uri_base->isa('URI') ? : |
|
217
|
0 |
3 |
if $basic |
|
226
|
2 |
0 |
if $response |
|
228
|
0 |
2 |
if (not $response) { } |
|
|
0 |
2 |
elsif (not $response->is_success) { } |
|
237
|
1 |
1 |
if (my $params = eval {
do {
&decode_json($content)
}
}) |
|
239
|
1 |
0 |
ref $params eq 'HASH' ? : |
|
246
|
1 |
0 |
if @res_params |
|
251
|
0 |
0 |
if length $content > 200 |