Condition Coverage

blib/lib/Net/Twitter/Lite.pm
Criterion Covered Total %
condition 28 58 48.2


and 3 conditions

line !l l&&!r l&&r condition
114 7 4 0 exists $new->{'username'} and exists $new->{'password'}
157 0 1 0 defined $self->{'access_token'} && $self->{'access_token_secret'}
310 0 0 1 $authenticate and $self->authorized
373 4 150 0 $authenticate and $self->{'username'}
102 48 0 $authenticate and $self->{'username'} and $self->{'password'}
436 476 436 18 @$arg_names == 0 and @{$options{'params'};} == 1
449 132 44 0 my $legacy_method = $self->can("legacy_$name") and exists $$args{-'legacy_lists_api'} ? delete $$args{-'legacy_lists_api'} : $self->{'legacy_lists_api'}
488 155 0 0 exists $args->{'skip_user'} and $args->{'skip_user'} eq 'false'
592 4 0 151 $obj and ref $obj eq 'HASH'
4 151 0 $obj and ref $obj eq 'HASH' and exists $obj->{'error'}
596 0 4 151 $res->is_success and defined $obj

or 2 conditions

line l !l condition
202 0 0 $params{'callback'} ||= 'oob'
306 0 1 delete $$args{-'content_type'} || ''

or 3 conditions

line l !l&&r !l&&!r condition
45 0 11 0 ref $class || $class
0 11 0 ref $class || $class
90 0 0 0 'Net::Netrc'->lookup($host) || croak("No .netrc entry for $host")
96 2 9 0 $new->{'ua'} ||= do { eval "use $new->{'useragent_class'}"; croak($@) if $@; $new->{'useragent_class'}->new(%{$$new{'useragent_args'};}) }
142 0 1 0 $self->{'_oauth'} ||= do { eval 'use Net::OAuth 0.25'; croak('Install Net::OAuth 0.25 or later for OAuth support') if $@; eval '$Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A'; die $@ if $@; 'Net::OAuth' }
307 0 0 1 $content_type eq 'form-data' || grep({ref $_;} %$args)
471 0 6 0 $args->{'source'} ||= $self->{'source'}