| line |
true |
false |
branch |
|
25
|
0 |
2 |
unless ($@) |
|
189
|
0 |
2 |
unless (defined $self->{'tokens'}{$param}) |
|
195
|
0 |
1 |
unless &blessed($self->{'browser'}) and $self->{'browser'}->isa('LWP::UserAgent') |
|
220
|
0 |
0 |
unless defined $self->{'tokens'}{$param} and length $self->{'tokens'}{$param} |
|
234
|
0 |
0 |
if @_ |
|
245
|
0 |
0 |
if (@_) |
|
249
|
0 |
0 |
unless $self->{'tokens'} |
|
342
|
0 |
0 |
unless defined $self->$param |
|
429
|
0 |
0 |
if @_ |
|
469
|
0 |
0 |
if @_ |
|
499
|
0 |
0 |
unless defined $params{'token'} |
|
500
|
0 |
0 |
unless defined $params{'token_secret'} |
|
502
|
0 |
0 |
if ($self->oauth_1_0a) |
|
503
|
0 |
0 |
unless defined $params{'verifier'} |
|
504
|
0 |
0 |
unless defined $params{'verifier'} |
|
533
|
0 |
0 |
unless $self->access_token and $self->access_token_secret |
|
594
|
0 |
0 |
if ($self->oauth_1_0a) |
|
595
|
0 |
0 |
unless defined $params{'callback'} |
|
596
|
0 |
0 |
unless defined $params{'callback'} |
|
604
|
0 |
0 |
unless $request_token_response->is_success |
|
617
|
0 |
0 |
unless $self->callback_confirmed |
|
620
|
0 |
0 |
if $self->oauth_1_0a and not $self->callback_confirmed |
|
637
|
0 |
0 |
unless (defined $self->request_token) |
|
656
|
0 |
0 |
unless $self->authorized |
|
672
|
0 |
0 |
unless $self->authorized_general_token |
|
703
|
0 |
0 |
unless $response->is_success |
|
724
|
0 |
0 |
if ('PUT' eq $method) |
|
729
|
0 |
0 |
unless $filename |
|
744
|
0 |
0 |
if ($self->signature_method eq 'HMAC-SHA1' or $self->signature_method eq 'RSA-SHA1') { } |
|
|
0 |
0 |
elsif ($self->signature_method eq 'HMAC-SHA256') { } |
|
757
|
0 |
0 |
$self->oauth_1_0a ? : |
|
769
|
0 |
0 |
if 'PUT' eq $method |
|
771
|
0 |
0 |
unless $request->verify |
|
774
|
0 |
0 |
'GET' eq $method || 'DELETE' eq $method ? : |
|
778
|
0 |
0 |
if ('PUT' eq $method) |
|
784
|
0 |
0 |
if ('POST' eq $method) |
|
799
|
0 |
0 |
if ($self->{'return_undef_on_error'}) { } |
|
835
|
0 |
0 |
unless -f $file |
|
840
|
0 |
0 |
if /^#/ |
|
841
|
0 |
0 |
if /^\s*$/ |
|
842
|
0 |
0 |
unless /=/ |
|
862
|
0 |
0 |
if length $key > $max |
|
865
|
0 |
0 |
unless open my $fh, ">$file" |
|
878
|
0 |
0 |
unless open my $fh, $file |
|
880
|
0 |
0 |
if $sub |