| blib/lib/Business/OnlinePayment/PaymenTech.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 25 | 0.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 168 | 0 | 0 | 0 | $data{$k} and $l |
| 302 | 0 | 0 | 0 | ref $r->{$_} and not keys %{$$r{$_};} |
| 306 | 0 | 0 | 0 | ref $r->{$_} and exists $r->{$_}{'content'} |
| line | l | !l | condition |
|---|---|---|---|
| 229 | 0 | 0 | $content{'country'} ||= 'US' |
| 332 | 0 | 0 | $failure_status{$r->{'RespCode'}} || 'decline' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 222 | 0 | 0 | 0 | $content{'invoice_number'} ||= sprintf('%04x%04x', time % 65536, int((rand()) * 65536)) |
| 315 | 0 | 0 | 0 | $r->{'ProcStatusMsg'} || $r->{'StatusMsg'} |
| 324 | 0 | 0 | 0 | $r->{'ProcStatus'} != 0 or exists $r->{'ApprovalStatus'} ? $r->{'ApprovalStatus'} != 1 : $r->{'StatusMsg'} ne 'Approved' |
| 335 | 0 | 0 | 0 | $r->{'ProcStatusMsg'} || $r->{'StatusMsg'} |