| line |
true |
false |
branch |
|
77
|
4 |
8 |
if ($val) |
|
79
|
4 |
0 |
unless $tf |
|
92
|
4 |
0 |
if ($val) |
|
94
|
0 |
4 |
unless $tf |
|
107
|
4 |
8 |
if ($val) |
|
109
|
4 |
0 |
unless $tf |
|
122
|
4 |
0 |
if ($val) |
|
124
|
0 |
4 |
unless $tf |
|
229
|
0 |
2 |
unless (defined $testMode) |
|
235
|
1 |
1 |
if (lc $testMode eq 'sandbox' or lc $testMode eq 'test' or $testMode eq '1') { } |
|
280
|
1 |
0 |
if ($content{'card_number'}) |
|
293
|
1 |
0 |
$ret->{'return'}{'returnString'} && $ret->{'return'}{'returnString'} eq 'OK' ? : |
|
297
|
0 |
1 |
if exists $ret->{'response'} and ref $ret->{'response'} ne 'ARRAY' |
|
318
|
5 |
0 |
if ($content->{'vindicia_nvp'} and ref $content->{'vindicia_nvp'} eq 'HASH') |
|
323
|
0 |
5 |
unless not ref $content->{'vindicia_nvp'}{$_} |
|
356
|
1 |
0 |
$ret->{'return'}{'returnString'} && $ret->{'return'}{'returnString'} eq 'OK' ? : |
|
360
|
0 |
1 |
if exists $ret->{'transactions'} and ref $ret->{'transactions'} ne 'ARRAY' |
|
385
|
1 |
0 |
$ret->{'transaction'} ? : |
|
411
|
1 |
0 |
if exists $content{'invoice_number'} |
|
415
|
1 |
0 |
$ret->{'return'}{'returnString'} && $ret->{'return'}{'returnString'} eq 'OK' ? : |
|
419
|
0 |
1 |
if exists $ret->{'response'} and ref $ret->{'response'} ne 'ARRAY' |
|
467
|
4 |
0 |
if (ref $self->{'mocked'} eq 'ARRAY' and scalar @{$self->{'mocked'};}) |
|
469
|
0 |
4 |
unless $mock->{'action'} eq $action |
|
470
|
0 |
4 |
unless $mock->{'login'} eq $content{'login'} |
|
471
|
0 |
4 |
ref $mock->{'resp'} ? : |
|
496
|
0 |
0 |
if (ref $resp->{$t} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $resp->{$t} eq 'HASH') { } |
|
518
|
0 |
0 |
if ($t eq 'nameValues') { } |
|
|
0 |
0 |
elsif (ref $resp->{$t} eq 'HASH' and exists $resp->{$t}{'content'} || exists $resp->{$t}{'xmlns'}) { } |
|
520
|
0 |
0 |
unless ref $arr eq 'ARRAY' |
|
525
|
0 |
0 |
if (not exists $hash->{$n}) { } |
|
|
0 |
0 |
elsif (ref $hash->{$n}) { } |
|
544
|
6 |
0 |
if (length $cc > 11) { } |
|
|
0 |
0 |
elsif (length $cc > 5) { } |
|
556
|
10 |
6 |
unless $cc |
|
573
|
8 |
8 |
unless $ptr |
|
576
|
0 |
8 |
$ptr->{'cvv2'} ? : |
|
585
|
10 |
83 |
if (ref $value eq 'HASH') { } |
|
|
7 |
76 |
elsif (ref $value eq 'ARRAY') { } |
|
586
|
0 |
10 |
$value->{'attr'} ? : |
|
589
|
0 |
75 |
if $_ eq 'attr' |