Branch Coverage

blib/lib/Net/Twitter/Lite.pm
Criterion Covered Total %
branch 60 112 53.5


line true false branch
36 8 3 unless $class->can('verify_credentials')
39 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 $@
109 1 10 exists $$new{'consumer_key'} ? :
113 4 7 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 102 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
458 0 73 if exists $$args{$param}
464 6 149 if $options{'add_source'}
466 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