| blib/lib/Business/OnlinePayment/Vindicia/Select.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 16 | 49 | 32.6 |
| line | l | !l | condition |
|---|---|---|---|
| 467 | 0 | 4 | ref $self->{'mocked'} eq 'ARRAY' and scalar @{$self->{'mocked'};} |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 293 | 0 | 0 | 1 | $ret->{'return'}{'returnString'} && $ret->{'return'}{'returnString'} eq 'OK' |
| 297 | 0 | 1 | 0 | exists $ret->{'response'} and ref $ret->{'response'} ne 'ARRAY' |
| 318 | 0 | 0 | 5 | $content->{'vindicia_nvp'} and ref $content->{'vindicia_nvp'} eq 'HASH' |
| 356 | 0 | 0 | 1 | $ret->{'return'}{'returnString'} && $ret->{'return'}{'returnString'} eq 'OK' |
| 360 | 1 | 0 | 0 | exists $ret->{'transactions'} and ref $ret->{'transactions'} ne 'ARRAY' |
| 415 | 0 | 0 | 1 | $ret->{'return'}{'returnString'} && $ret->{'return'}{'returnString'} eq 'OK' |
| 419 | 1 | 0 | 0 | exists $ret->{'response'} and ref $ret->{'response'} ne 'ARRAY' |
| 518 | 0 | 0 | 0 | ref $resp->{$t} eq 'HASH' and exists $resp->{$t}{'content'} || exists $resp->{$t}{'xmlns'} |
| line | l | !l | condition |
|---|---|---|---|
| 229 | 0 | 0 | $self->{'test_transaction'} || 0 |
| 316 | 0 | 5 | $content->{'currency'} || 'USD' |
| 354 | 1 | 0 | $content{'page'} // 0 |
| 1 | 0 | $content{'page_size'} // 100 | |
| 486 | 0 | 0 | eval { do { Deparse error: Bizarre copy of CODE in list assignment at /usr/local/lib/perl5/5.24.1/B/Deparse.pm line 4027. {$action . 'Response'} } } || {} |
| 576 | 8 | 0 | $ptr->{'password'} || '' |
| 680 | 4 | 0 | $Business::OnlinePayment::Vindicia::Select::common_mock->{$action}{$label} || die('Mock label not found, label: ' . $label . "\n") |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 235 | 0 | 0 | 2 | lc $testMode eq 'sandbox' or lc $testMode eq 'test' |
| 0 | 1 | 1 | lc $testMode eq 'sandbox' or lc $testMode eq 'test' or $testMode eq '1' | |
| 518 | 0 | 0 | 0 | exists $resp->{$t}{'content'} || exists $resp->{$t}{'xmlns'} |