| line |
true |
false |
branch |
|
66
|
9 |
37 |
if (defined $protocol_version and $protocol_version == "1.001" and not $class =~ /\::V1_0A\::/)
|
|
68
|
7 |
2 |
if Net::OAuth::smart_require($versioned_class)
|
|
76
|
29 |
8 |
unless $self->{'from_hash'}
|
|
88
|
3 |
218 |
unless (defined $self->{$k})
|
|
92
|
30 |
4 |
if ($self->{'extra_params'} and $self->allow_extra_params)
|
|
94
|
0 |
22 |
if ($k =~ /$OAUTH_PREFIX_RE/)
|
|
103
|
14 |
919 |
unless defined $str
|
|
104
|
933 |
0 |
unless ($Net::OAuth::SKIP_UTF8_DOUBLE_ENCODE_CHECK)
|
|
105
|
1 |
932 |
if ($str =~ /[\x80-\xFF]/ and not utf8::is_utf8($str))
|
|
124
|
56 |
4 |
unless defined $opts{'quote'}
|
|
128
|
42 |
344 |
if $k eq "signature" and not $self->sign_message && grep(($_ eq 'signature'), @{$opts{'add'};})
|
|
129
|
3 |
341 |
$self->is_extension_param($k) ? :
|
|
131
|
343 |
1 |
if defined $v
|
|
133
|
50 |
10 |
if ($self->{'extra_params'} and not $opts{'no_extra'} and $self->allow_extra_params)
|
|
137
|
40 |
10 |
if ($self->can("request_url"))
|
|
145
|
8 |
52 |
if ($opts{'hash'})
|
|
181
|
0 |
36 |
unless Net::OAuth::smart_require($sm_class)
|
|
189
|
4 |
0 |
if (defined $realm) { }
|
|
203
|
0 |
1 |
unless $header =~ s/OAuth //
|
|
205
|
1 |
0 |
if $header[0] =~ /^realm=/i
|
|
212
|
0 |
4 |
if (ref $pairs ne "ARRAY")
|
|
218
|
16 |
0 |
if (defined $k and defined $v)
|
|
231
|
0 |
9 |
if (ref $hash ne "HASH")
|
|
241
|
46 |
2 |
if ($k =~ s/$OAUTH_PREFIX_RE//) { }
|
|
|
0 |
2 |
elsif ($class->is_extension_param($k)) { }
|
|
242
|
1 |
45 |
if (not grep(($_ eq $k), @{$class->all_message_params;})) { }
|
|
250
|
0 |
0 |
if (not grep(($_ eq $k), @{$class->all_message_params;})) { }
|
|
266
|
1 |
81 |
UNIVERSAL::isa($_[0], 'URI') ? :
|
|
297
|
5 |
0 |
if (not defined $url and $self->can("request_url") and defined $self->request_url)
|
|
300
|
8 |
0 |
if (defined $url) { }
|
|
308
|
8 |
41 |
if $sep eq "?"
|