Condition Coverage

blib/lib/Net/Twitter/Lite.pm
Criterion Covered Total %
condition 27 53 50.9


and 3 conditions

line !l l&&!r l&&r condition
113 7 0 4 exists $$new{'username'} and exists $$new{'password'}
157 0 0 1 defined $$self{'access_token'} && $$self{'access_token_secret'}
309 0 0 1 $authenticate and $self->authorized
372 4 102 48 $authenticate and $$self{'username'}
106 0 48 $authenticate and $$self{'username'} and $$self{'password'}
434 476 434 18 @$arg_names == 0 and @{$options{'params'};} == 1
444 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'}
479 155 0 0 exists $$args{'skip_user'} and $$args{'skip_user'} eq 'false'
576 4 0 151 $obj and ref $obj eq 'HASH'
4 151 0 $obj and ref $obj eq 'HASH' and exists $$obj{'error'}
580 0 4 151 $res->is_success and defined $obj

or 2 conditions

line l !l condition
202 0 0 $params{'callback'} ||= 'oob'

or 3 conditions

line l !l&&r !l&&!r condition
39 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' }
464 0 6 0 $$args{'source'} ||= $$self{'source'}