| line |
true |
false |
branch |
|
82
|
4 |
8 |
if ($val) |
|
84
|
4 |
0 |
unless $tf |
|
97
|
4 |
0 |
if ($val) |
|
99
|
0 |
4 |
unless $tf |
|
112
|
4 |
8 |
if ($val) |
|
114
|
4 |
0 |
unless $tf |
|
127
|
4 |
0 |
if ($val) |
|
129
|
0 |
4 |
unless $tf |
|
233
|
0 |
2 |
unless (defined $testMode) |
|
239
|
1 |
1 |
if (lc $testMode eq 'sandbox' or lc $testMode eq 'test' or $testMode eq '1') { } |
|
284
|
1 |
0 |
if ($content{'card_number'}) |
|
297
|
1 |
0 |
$ret->{'return'}{'returnString'} && $ret->{'return'}{'returnString'} eq 'OK' ? : |
|
301
|
0 |
1 |
if exists $ret->{'response'} and ref $ret->{'response'} ne 'ARRAY' |
|
322
|
5 |
0 |
if ($content->{'vindicia_nvp'} and ref $content->{'vindicia_nvp'} eq 'HASH') |
|
327
|
0 |
5 |
unless not ref $content->{'vindicia_nvp'}{$_} |
|
360
|
1 |
0 |
$ret->{'return'}{'returnString'} && $ret->{'return'}{'returnString'} eq 'OK' ? : |
|
364
|
0 |
1 |
if exists $ret->{'transactions'} and ref $ret->{'transactions'} ne 'ARRAY' |
|
389
|
1 |
0 |
$ret->{'transaction'} ? : |
|
415
|
1 |
0 |
if exists $content{'invoice_number'} |
|
419
|
1 |
0 |
$ret->{'return'}{'returnString'} && $ret->{'return'}{'returnString'} eq 'OK' ? : |
|
423
|
0 |
1 |
if exists $ret->{'response'} and ref $ret->{'response'} ne 'ARRAY' |
|
469
|
4 |
0 |
if (ref $self->{'mocked'} eq 'ARRAY' and scalar @{$self->{'mocked'};}) |
|
471
|
0 |
4 |
unless $mock->{'action'} eq $action |
|
472
|
0 |
4 |
unless $mock->{'login'} eq $content{'login'} |
|
473
|
0 |
4 |
ref $mock->{'resp'} ? : |
|
498
|
0 |
0 |
if (ref $resp->{$t} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $resp->{$t} eq 'HASH') { } |
|
520
|
0 |
0 |
if ($t eq 'nameValues') { } |
|
|
0 |
0 |
elsif (ref $resp->{$t} eq 'HASH' and exists $resp->{$t}{'content'} || exists $resp->{$t}{'xmlns'}) { } |
|
522
|
0 |
0 |
unless ref $arr eq 'ARRAY' |
|
527
|
0 |
0 |
if (not exists $hash->{$n}) { } |
|
|
0 |
0 |
elsif (ref $hash->{$n}) { } |
|
546
|
6 |
0 |
if (length $cc > 11) { } |
|
|
0 |
0 |
elsif (length $cc > 5) { } |
|
558
|
10 |
6 |
unless $cc |
|
575
|
8 |
8 |
unless $ptr |
|
577
|
0 |
8 |
$ptr->{'cvv2'} ? : |
|
589
|
10 |
83 |
if (ref $value eq 'HASH') { } |
|
|
7 |
76 |
elsif (ref $value eq 'ARRAY') { } |
|
590
|
0 |
10 |
$value->{'attr'} ? : |
|
593
|
0 |
75 |
if $_ eq 'attr' |