| line |
true |
false |
branch |
|
22
|
9 |
2 |
unless @_ |
|
24
|
0 |
2 |
if (ref $auth eq 'CODE') { } |
|
|
0 |
2 |
elsif (ref $auth eq 'HASH') { } |
|
|
1 |
1 |
elsif ($auth eq 'oauth') { } |
|
|
1 |
0 |
elsif ($auth eq 'oauth2') { } |
|
27
|
0 |
0 |
if (defined $auth->{'access_token'}) { } |
|
|
0 |
0 |
elsif (defined $auth->{'oauth_token'} and defined $auth->{'oauth_token_secret'}) { } |
|
45
|
0 |
1 |
ref $_[-1] eq 'CODE' ? : |
|
48
|
0 |
1 |
if ($cb) { } |
|
51
|
0 |
0 |
if $tx->error |
|
57
|
0 |
1 |
if $tx->error |
|
67
|
0 |
0 |
if $tx->error |
|
84
|
0 |
1 |
unless $params->{'oauth_callback_confirmed'} eq 'true' and defined $params->{'oauth_token'} and defined $params->{'oauth_token_secret'} |
|
90
|
0 |
1 |
ref $_[-1] eq 'CODE' ? : |
|
93
|
0 |
1 |
if ($cb) { } |
|
96
|
0 |
0 |
if $tx->error |
|
102
|
0 |
1 |
if $tx->error |
|
112
|
0 |
0 |
if $tx->error |
|
128
|
0 |
1 |
unless defined $params->{'oauth_token'} and defined $params->{'oauth_token_secret'} |
|
133
|
0 |
1 |
ref $_[-1] eq 'CODE' ? : |
|
136
|
0 |
1 |
if ($cb) { } |
|
139
|
0 |
0 |
if $tx->error |
|
145
|
0 |
1 |
if $tx->error |
|
155
|
0 |
0 |
if $tx->error |
|
170
|
0 |
1 |
unless defined $params->{'access_token'} |
|
175
|
0 |
4 |
ref $_[-1] eq 'CODE' ? : |
|
178
|
0 |
3 |
if ($cb) { } |
|
181
|
0 |
0 |
if $tx->error |
|
186
|
0 |
3 |
if $tx->error |
|
196
|
0 |
0 |
if $tx->error |
|
203
|
0 |
4 |
unless defined $id |
|
204
|
0 |
4 |
unless $id =~ /\A[0-9]+\z/ |
|
211
|
0 |
2 |
ref $_[-1] eq 'CODE' ? : |
|
214
|
0 |
2 |
if ($cb) { } |
|
217
|
0 |
0 |
if $tx->error |
|
222
|
0 |
2 |
if $tx->error |
|
232
|
0 |
0 |
if $tx->error |
|
240
|
1 |
1 |
if defined $params{'user_id'} |
|
241
|
1 |
1 |
if defined $params{'screen_name'} |
|
242
|
0 |
2 |
unless %query |
|
250
|
0 |
1 |
ref $_[-1] eq 'CODE' ? : |
|
253
|
0 |
1 |
if ($cb) { } |
|
256
|
0 |
0 |
if $tx->error |
|
261
|
0 |
1 |
if $tx->error |
|
271
|
0 |
0 |
if $tx->error |
|
278
|
0 |
1 |
unless defined $status |
|
283
|
0 |
0 |
$params{$_} ? : |
|
292
|
0 |
0 |
ref $_[-1] eq 'CODE' ? : |
|
295
|
0 |
0 |
if ($cb) { } |
|
298
|
0 |
0 |
if $tx->error |
|
303
|
0 |
0 |
if $tx->error |
|
313
|
0 |
0 |
if $tx->error |
|
320
|
0 |
0 |
unless defined $id |
|
321
|
0 |
0 |
if &blessed($id) and $id->isa('Mojo::WebService::Twitter::Tweet') |
|
322
|
0 |
0 |
unless $id =~ /\A[0-9]+\z/ |
|
329
|
0 |
1 |
ref $_[-1] eq 'CODE' ? : |
|
332
|
0 |
1 |
if ($cb) { } |
|
335
|
0 |
0 |
if $tx->error |
|
340
|
0 |
1 |
if $tx->error |
|
350
|
0 |
0 |
if $tx->error |
|
357
|
0 |
1 |
unless defined $q |
|
361
|
0 |
1 |
if (ref $geocode) |
|
363
|
0 |
0 |
if ref $geocode eq 'ARRAY' |
|
364
|
0 |
0 |
if ref $geocode eq 'HASH' |
|
365
|
0 |
0 |
if defined $lat and defined $long and defined $rad |
|
367
|
0 |
1 |
if defined $geocode |
|
376
|
0 |
1 |
ref $_[-1] eq 'CODE' ? : |
|
379
|
0 |
1 |
if ($cb) { } |
|
382
|
0 |
0 |
if $tx->error |
|
387
|
0 |
1 |
if $tx->error |
|
397
|
0 |
0 |
if $tx->error |
|
416
|
0 |
3 |
unless defined $api_key and defined $api_secret |
|
430
|
0 |
1 |
unless defined $api_key and defined $api_secret |