| line |
true |
false |
branch |
|
39
|
0 |
1 |
if ($$tokens{'request_token'} and $$tokens{'request_token_secret'}) |
|
45
|
0 |
1 |
if ($$tokens{'access_token'} and $$tokens{'access_token_secret'}) |
|
51
|
0 |
1 |
if ($$tokens{'verifier'}) |
|
60
|
0 |
0 |
if ($method eq 'POST') |
|
62
|
0 |
0 |
unless substr($param, 0, 1) eq '@' |
|
74
|
0 |
0 |
unless ($res->is_success) |
|
85
|
1 |
0 |
if $$error{'error_code'} |
|
86
|
1 |
0 |
if ($$error{'error'} =~ /^(\d+):.*/) { } |
|
93
|
1 |
1 |
if ($@) |
|
104
|
0 |
0 |
unless -f $file |
|
106
|
0 |
0 |
unless open my $fh, $file |
|
109
|
0 |
0 |
if /^#/ |
|
110
|
0 |
0 |
if /^\s*$/ |
|
111
|
0 |
0 |
unless /=/ |
|
127
|
0 |
0 |
if length $key > $max |
|
130
|
0 |
0 |
unless open my $fh, ">$file" |
|
140
|
0 |
0 |
unless ($res->is_success) |
|
154
|
0 |
0 |
unless ($token) |
|
156
|
0 |
0 |
unless $token |
|
160
|
0 |
0 |
eval {
do {
$token->isa('OAuth::Lite::Token')
}
} ? : |
|
163
|
0 |
0 |
if exists $args{'callback_url'} |
|
184
|
0 |
0 |
if (ref $extra eq 'ARRAY') |
|
196
|
0 |
0 |
unless ref $headers eq 'HASH' |
|
206
|
0 |
0 |
if $param_key =~ /^x?oauth_/ |
|
209
|
0 |
0 |
if (keys %$copied_params > 0) |
|
211
|
0 |
0 |
unless $is_send_data_method |
|
218
|
0 |
0 |
if ($method eq 'GET') { } |
|
|
0 |
0 |
elsif ($method eq 'POST') { } |
|
222
|
0 |
0 |
if (keys %$multi_parts) { } |