| line |
true |
false |
branch |
|
36
|
8 |
3 |
unless $class->can('verify_credentials') |
|
45
|
0 |
11 |
$args{'identica'} ? : |
|
64
|
0 |
11 |
unless (exists $new->{'legacy_lists_api'}) |
|
79
|
4 |
7 |
if (delete $args{'ssl'}) |
|
85
|
0 |
11 |
if ($netrc) |
|
86
|
0 |
0 |
unless eval {
do {
require Net::Netrc;
1
}
} |
|
89
|
0 |
0 |
$netrc eq '1' ? : |
|
98
|
0 |
9 |
if $@ |
|
110
|
1 |
10 |
exists $new->{'consumer_key'} ? : |
|
114
|
4 |
0 |
if exists $new->{'username'} and exists $new->{'password'} |
|
123
|
0 |
5 |
unless @_ == 2 |
|
124
|
0 |
5 |
if exists $self->{'consumer_key'} |
|
144
|
0 |
1 |
if $@ |
|
147
|
0 |
1 |
if $@ |
|
210
|
0 |
0 |
unless $res->is_success |
|
235
|
0 |
0 |
unless $res->is_success |
|
268
|
0 |
0 |
unless $res->is_success |
|
298
|
256 |
0 |
unless ref $_ |
|
309
|
1 |
0 |
if ($authenticate and $self->authorized) { } |
|
|
0 |
0 |
elsif ($http_method eq 'GET') { } |
|
|
0 |
0 |
elsif ($http_method eq 'POST') { } |
|
312
|
0 |
1 |
$is_multipart ? : |
|
321
|
1 |
0 |
if ($http_method =~ /^(?:GET|DELETE)$/) { } |
|
|
0 |
0 |
elsif ($http_method eq 'POST') { } |
|
325
|
0 |
0 |
$is_multipart ? : |
|
361
|
90 |
64 |
if ($http_method =~ /^(?:GET|DELETE)$/) { } |
|
|
64 |
0 |
elsif ($http_method eq 'POST') { } |
|
372
|
48 |
0 |
if ($authenticate and $self->{'username'} and $self->{'password'}) |
|
382
|
0 |
64 |
if (grep {ref $_;} values %$args) { } |
|
409
|
0 |
8 |
unless eval "require $api_def_module" |
|
415
|
0 |
0 |
if (defined(my $id = delete $args->{'id'})) { } |
|
434
|
18 |
910 |
if @$arg_names == 0 and @{$options{'params'};} == 1 |
|
436
|
0 |
928 |
$path =~ s[/id$][/] ? : |
|
442
|
99 |
77 |
ref $_[-1] eq 'HASH' ? : |
|
444
|
1 |
43 |
exists $$args{-'legacy_lists_api'} ? : |
|
|
21 |
23 |
if (my $legacy_method = $self->can("legacy_$name") and exists $$args{-'legacy_lists_api'} ? delete $$args{-'legacy_lists_api'} : $self->{'legacy_lists_api'}) |
|
453
|
0 |
155 |
if @_ > @$arg_names |
|
459
|
0 |
73 |
if exists $args->{$param} |
|
464
|
6 |
149 |
if $options{'add_source'} |
|
468
|
2 |
153 |
exists $args->{'authenticate'} ? : |
|
471
|
0 |
160 |
if (exists $args->{$boolean_arg}) |
|
472
|
0 |
0 |
if $args->{$boolean_arg} =~ /^true|false$/ |
|
473
|
0 |
0 |
$args->{$boolean_arg} ? : |
|
479
|
0 |
155 |
if exists $args->{'skip_user'} and $args->{'skip_user'} eq 'false' |
|
483
|
124 |
31 |
unless exists $args->{'id'} |
|
484
|
0 |
61 |
unless delete $args->{$1} |
|
488
|
3 |
307 |
if ref $args->{$_} eq 'ARRAY' |
|
506
|
8 |
56 |
unless my $orig = $class->can($_) |
|
510
|
0 |
11 |
if ($@) |
|
511
|
0 |
0 |
if $@ =~ /The specified user is not a (?:memb|subscrib)er of this list/ |
|
535
|
2 |
2 |
if @_ |
|
552
|
0 |
0 |
if @_ |
|
576
|
0 |
151 |
if ($obj and ref $obj eq 'HASH' and exists $obj->{'error'}) |
|
580
|
151 |
4 |
if ($res->is_success and defined $obj) |
|
581
|
17 |
134 |
if ($self->{'wrap_result'}) |
|
588
|
0 |
4 |
if ref $obj |