Branch Coverage

blib/lib/Net/Twitter/Lite.pm
Criterion Covered Total %
branch 59 114 51.7


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 $_
310 1 0 if ($authenticate and $self->authorized) { }
0 0 elsif ($http_method eq 'GET') { }
0 0 elsif ($http_method eq 'POST') { }
313 0 1 $is_multipart ? :
322 1 0 if ($http_method =~ /^(?:GET|DELETE)$/) { }
0 0 elsif ($http_method eq 'POST') { }
326 0 0 $is_multipart ? :
362 90 64 if ($http_method =~ /^(?:GET|DELETE)$/) { }
64 0 elsif ($http_method eq 'POST') { }
373 48 0 if ($authenticate and $self->{'username'} and $self->{'password'})
383 0 64 if (grep {ref $_;} values %$args) { }
410 0 8 unless eval "require $api_def_module"
416 0 0 if (defined(my $id = delete $args->{'id'})) { }
436 18 912 if @$arg_names == 0 and @{$options{'params'};} == 1
438 0 930 $path =~ s[/id$][/] ? :
444 99 77 ref $_[-1] eq 'HASH' ? :
445 0 176 if (my $content_type = $options{'content_type'})
449 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'})
459 0 155 if @_ > @$arg_names
466 0 73 if exists $args->{$param}
471 6 149 if $options{'add_source'}
475 2 153 exists $args->{'authenticate'} ? :
479 0 160 if (exists $args->{$boolean_arg})
480 0 0 if $args->{$boolean_arg} =~ /^true|false$/
481 0 0 $args->{$boolean_arg} ? :
488 0 155 if exists $args->{'skip_user'} and $args->{'skip_user'} eq 'false'
494 124 31 unless exists $args->{'id'}
495 0 61 unless delete $args->{$1}
501 3 307 if ref $args->{$_} eq 'ARRAY'
522 8 56 unless my $orig = $class->can($_)
526 0 11 if ($@)
527 0 0 if $@ =~ /The specified user is not a (?:memb|subscrib)er of this list/
551 2 2 if @_
568 0 0 if @_
592 0 151 if ($obj and ref $obj eq 'HASH' and exists $obj->{'error'})
596 151 4 if ($res->is_success and defined $obj)
597 17 134 if ($self->{'wrap_result'})
604 0 4 if ref $obj