Branch Coverage

blib/lib/WebService/MyAffiliates.pm
Criterion Covered Total %
branch 10 60 16.6


line true false branch
17 0 2 @_ % 2 ? :
20 0 6 unless $args{$_}
24 2 0 unless $args{'host'} =~ m[^https?\://]
35 0 0 if exists $self->{'ua'}
50 0 0 @_ % 2 ? :
52 0 0 if %args
58 6 0 @_ % 2 ? :
66 3 3 if ($error_count)
68 1 2 ref $init->{'ERROR'} eq 'ARRAY' ? :
81 0 0 unless $id
82 0 0 unless my $user = $self->get_users("USER_ID", $id)
89 1 0 unless my(@tokens) = @_
97 0 0 @_ % 2 ? :
99 0 0 unless $args{'USER_ID'}
100 0 0 unless $args{'SETUP_ID'}
103 0 0 if %args
110 0 0 @_ % 2 ? :
112 0 0 unless $args{'FROM_DATE'}
115 0 0 if %args
121 0 0 @_ % 2 ? :
124 0 0 if %args
130 0 0 ref $res->{'PLAYER'} eq 'ARRAY' ? :
0 0 !exists $res->{'PLAYER'} ? :
142 0 0 %params ? :
147 0 0 if ($tx->res->headers->content_type and $tx->res->headers->content_type =~ m[text/xml])
150 0 0 unless ($tx->success)
163 1 0 unless $token
165 0 0 unless my $token_info = $self->decode_token($token)
186 0 0 unless $token
188 0 0 unless my $token_info = $self->decode_token($token)