| line |
true |
false |
branch |
|
29
|
1 |
0 |
ref $_[0] ? : |
|
40
|
2 |
0 |
ref $_[0] ? : |
|
47
|
0 |
2 |
unless defined $client_id and defined $client_secret |
|
50
|
0 |
2 |
unless defined $signer |
|
52
|
0 |
2 |
if ($signature_method eq "RSA-SHA1" and builtin::blessed($signer)) |
|
54
|
0 |
0 |
unless $signer_obj->can("sign") |
|
57
|
0 |
2 |
unless not builtin::blessed($signer) and ref $signer eq "CODE" |
|
66
|
1 |
1 |
if defined $token |
|
69
|
2 |
0 |
if (defined $extra_params) |
|
70
|
0 |
2 |
unless ref $extra_params eq "HASH" |
|
72
|
1 |
1 |
unless $_ eq "realm" |
|
|
0 |
2 |
unless &all(sub {
/^oauth_/ unless $_ eq "realm";
}
, keys %$extra_params) |
|
80
|
0 |
2 |
$signature_method eq 'PLAINTEXT' ? : |
|
91
|
0 |
0 |
unless defined $token_secret |
|
97
|
1 |
1 |
unless defined $token_secret |
|
100
|
2 |
0 |
if length($digest) % 4 |
|
109
|
0 |
2 |
if $req->content_is_form |
|
111
|
0 |
21 |
unless $WWW::OAuth::a->[0] cmp $WWW::OAuth::b->[0] |