Branch Coverage

blib/lib/WebService/MyAffiliates.pm
Criterion Covered Total %
branch 18 66 27.2


line true false branch
19 0 3 @_ % 2 ? :
22 0 9 unless $args{$_}
26 3 0 unless $args{'host'} =~ m[^https?\://]
37 0 1 if exists $self->{'http_tiny'}
48 0 0 @_ % 2 ? :
50 0 0 if %args
56 0 0 @_ % 2 ? :
58 0 0 if %args
64 6 0 @_ % 2 ? :
72 3 3 if ($error_count)
77 1 2 ref $init->{'ERROR'} eq 'ARRAY' ? :
90 0 0 unless $id
91 0 0 unless my $user = $self->get_users("USER_ID", $id)
97 0 0 unless $ids
105 1 0 unless my(@tokens) = @_
113 0 0 @_ % 2 ? :
115 0 0 unless $args{'USER_ID'}
116 0 0 unless $args{'SETUP_ID'}
119 0 0 if %args
126 0 0 @_ % 2 ? :
128 0 0 unless $args{'FROM_DATE'}
131 0 0 if %args
137 1 0 @_ % 2 ? :
140 1 0 if %args
147 0 1 ref $res->{'PLAYER'} eq 'ARRAY' ? :
0 1 !exists $res->{'PLAYER'} ? :
159 0 1 %params ? :
163 0 1 unless ($response->{'success'})
168 1 0 if ($response->{'headers'}{'content-type'} and $response->{'headers'}{'content-type'} =~ m[text/xml])
182 1 0 unless $token
184 0 0 unless my $token_info = $self->decode_token($token)
205 0 0 unless $token
207 0 0 unless my $token_info = $self->decode_token($token)