| line |
true |
false |
branch |
|
25
|
0 |
8 |
if ($args->{'lwpobj'}) |
|
27
|
0 |
0 |
if (defined $lwpobj) |
|
29
|
0 |
0 |
if (defined $lwpobjtype) |
|
35
|
8 |
0 |
unless $self |
|
40
|
4 |
4 |
if (defined $args->{'consumer_key'}) { } |
|
47
|
4 |
0 |
if (defined $args->{'consumer_secret'}) { } |
|
77
|
2 |
2 |
if (defined $args->{'token'} and defined $args->{'token_secret'}) |
|
91
|
0 |
4 |
if (defined $args->{'request_token'} and ref $args->{'request_token'} eq "Net::OAuth::V1_0A::RequestTokenResponse") |
|
97
|
0 |
4 |
if (defined $args->{'access_token'} and ref $args->{'access_token'} eq "Net::OAuth::AccessTokenResponse") |
|
115
|
3 |
1 |
if (defined $args->{'key'} or defined $self->{'key'}) |
|
122
|
1 |
3 |
if (defined $args->{'secret'} or defined $self->{'secret'}) |
|
134
|
0 |
4 |
unless defined $self->{'api_key'} |
|
160
|
0 |
2 |
if ($self->is_oauth) { } |
|
174
|
0 |
0 |
if (defined $args->{'token'} or defined $args->{'token_secret'}) |
|
181
|
0 |
0 |
if (defined $args->{'consumer_key'} or defined $args->{'consumer_secret'}) |
|
195
|
0 |
0 |
if (defined $self->{'oauth'}{'token'}) |
|
230
|
2 |
0 |
unless ($self->is_oauth) |
|
232
|
2 |
0 |
if (defined $self->{'api_secret'} and length $self->{'api_secret'}) |
|
234
|
2 |
0 |
unless ($self->is_oauth) |
|
238
|
2 |
0 |
unless ($self->is_oauth) |
|
245
|
0 |
2 |
if ($response->{'_rc'} != 200) |
|
251
|
0 |
2 |
unless defined $content |
|
260
|
0 |
2 |
if ($rsp_node->{'name'} ne "rsp") |
|
265
|
2 |
0 |
if ($rsp_node->{'attributes'}{'stat'} eq "fail") |
|
267
|
2 |
0 |
if ($fail_node->{'name'} eq 'err') { } |
|
276
|
0 |
0 |
if ($rsp_node->{'attributes'}{'stat'} eq "ok") |
|
291
|
0 |
0 |
unless ($self->api_permissions eq "write" or $self->api_permissions eq "delete") |
|
309
|
0 |
0 |
if ($response->{'_rc'} != 200) |
|
315
|
0 |
0 |
unless defined $content |
|
324
|
0 |
0 |
if ($rsp_node->{'name'} ne "rsp") |
|
329
|
0 |
0 |
if ($rsp_node->{'attributes'}{'stat'} eq "fail") |
|
331
|
0 |
0 |
if ($fail_node->{'name'} eq 'err') { } |
|
340
|
0 |
0 |
if ($rsp_node->{'attributes'}{'stat'} eq "ok") |
|
364
|
5 |
2 |
if ($self->is_oauth) { } |
|
366
|
1 |
4 |
unless ($params) |
|
370
|
4 |
1 |
if (defined $type) { } |
|
371
|
2 |
2 |
if ($params =~ /^m.*/i) { } |
|
|
2 |
0 |
elsif ($params =~ /^a.*/i) { } |
|
381
|
18 |
9 |
if (defined $self->{'oauth'}{$param}) |
|
401
|
0 |
2 |
unless open my $EXPORT, ">", $file |
|
414
|
0 |
2 |
unless open my $IMPORT, "<", $file |
|
433
|
0 |
0 |
unless ($self->is_oauth) |
|
437
|
0 |
0 |
unless ($self->get_oauth_request_type eq "consumer") |
|
454
|
0 |
0 |
unless defined $content |
|
456
|
0 |
0 |
if ($content =~ /^oauth_problem=(.+)$/) |
|
475
|
0 |
0 |
unless ($self->is_oauth) |
|
485
|
0 |
0 |
unless defined $oauth{'perms'} and $oauth{'perms'} =~ /^(read|write|delete)$/ |
|
502
|
0 |
5 |
if ($self->is_oauth) |
|
511
|
1 |
4 |
unless defined $perms and $perms =~ /^(read|write|delete)$/ |
|
514
|
1 |
3 |
unless defined $self->{'api_secret'} and length $self->{'api_secret'} |
|
521
|
3 |
0 |
if ($frob) |
|
544
|
0 |
0 |
unless ($self->is_oauth) |
|
548
|
0 |
0 |
if ($args->{'token'} ne $self->{'oauth'}{'request_token'}{'token'}) |
|
575
|
0 |
0 |
unless defined $content |
|
577
|
0 |
0 |
if ($content =~ /^oauth_problem=(.+)$/) |
|
626
|
7 |
25 |
if (defined $self->{'api_type'} and $self->{'api_type'} eq 'oauth') { } |
|
638
|
2 |
0 |
if (defined $self->{'api_type'} and $self->{'api_type'} eq 'oauth') { } |
|
677
|
0 |
0 |
if ($self->is_oauth) { } |
|
679
|
0 |
0 |
if (defined $self->{'oauth'}{'perms'}) { } |
|
690
|
0 |
0 |
if (not $rsp->success) { } |
|
716
|
0 |
0 |
if (defined $self->{'fauth'}{'perms'}) { } |
|
726
|
0 |
0 |
if (not $rsp->success) { } |
|
763
|
0 |
9 |
if ($self->is_oauth) |
|
774
|
17 |
1 |
defined $args->{$key} ? : |
|
778
|
4 |
5 |
if $self->{'unicode'} |
|
785
|
4 |
4 |
if $child->{'type'} eq "element" |
|
849
|
16 |
0 |
if ($good != 0) |