blib/lib/Net/TPP.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 9 | 63 | 14.2 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
79 | 0 | 0 | 3 | not $options{$_} and $$self{$_} |
82 | 1 | 0 | 0 | $mode ne 'AUTHENTICATION' and not $options{'SessionID'} |
106 | 0 | 0 | 0 | $mode eq 'AUTHENTICATION' and not $$self{'SessionID'} |
0 | 0 | 0 | $mode eq 'AUTHENTICATION' and not $$self{'SessionID'} and $$response{'output_string'} | |
129 | 3 | 0 | 0 | ref $options{'value'} and ref $options{'value'} eq 'ARRAY' |
187 | 0 | 0 | 0 | not $output =~ /[\r\n]/ and $output_line =~ /^OK: (.+)$/ |
190 | 0 | 0 | 0 | $status eq 'ERR' and $value =~ s/^(\d\d\d)\b(,\s+)?// |
221 | 0 | 0 | 0 | defined $hashref and $hashref |
228 | 0 | 0 | 0 | defined $value and $value ne '' |
392 | 0 | 0 | 0 | $domain_details and $$domain_details{'output'} |
0 | 0 | 0 | $domain_details and $$domain_details{'output'} and defined $$domain_details{'output'}{'LockStatus'} | |
0 | 0 | 0 | $domain_details and $$domain_details{'output'} and defined $$domain_details{'output'}{'LockStatus'} and $$domain_details{'output'}{'LockStatus'} == 2 |
line | l | !l | condition |
---|---|---|---|
26 | 0 | 1 | $options{'URL'} || 'https://theconsole.tppwholesale.com.au' |
29 | 0 | 1 | $options{'AuthURL'} || '/api/auth.pl' |
33 | 0 | 1 | $options{'UserAgent'} || 'Mozilla/5.0 (Net::TPP perl/LWP)' |
43 | 2 | 0 | $$self{'error'} || '' |
130 | 0 | 0 | $options{'delimiter'} || '&' |
134 | 0 | 0 | $options{'key'} || '' |
161 | 0 | 0 | $$self{'_error_codes'}{$$self{'error_code'}} || 'Unknown Error.' |
232 | 0 | 0 | $hashref || '' |
238 | 0 | 0 | $hashref || '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
32 | 0 | 1 | 0 | $$self{'_ua'} ||= 'LWP::UserAgent'->new |
53 | 1 | 0 | 0 | uc $options{'mode'} || uc $options{'Mode'} || do { $$self{'error_code'} = ''; $$self{'error'} = 'No mode passed in'; $$self{'error_output'} = ''; return } |
389 | 0 | 0 | 0 | $options{'Domain'} || $options{'domain'} |