| line |
true |
false |
branch |
|
34
|
5 |
6 |
if ($val) |
|
36
|
5 |
0 |
unless $tf |
|
44
|
5 |
0 |
if ($val) |
|
46
|
0 |
5 |
unless $tf |
|
54
|
5 |
6 |
if ($val) |
|
56
|
5 |
0 |
unless $tf |
|
64
|
5 |
0 |
if ($val) |
|
66
|
0 |
5 |
unless $tf |
|
108
|
0 |
8 |
if ($opts{'debug'}) |
|
116
|
0 |
8 |
unless $key =~ /^default_(\w*)$/ |
|
122
|
2 |
6 |
if (defined $_defaults{'Scrubber'}) |
|
124
|
1 |
1 |
if (ref $code ne 'CODE') { } |
|
132
|
8 |
0 |
unless $self->api_version |
|
133
|
8 |
0 |
unless $self->batch_api_version |
|
134
|
8 |
0 |
unless $self->chargeback_api_version |
|
135
|
8 |
0 |
unless $self->xmlns |
|
142
|
0 |
15 |
unless (defined $testMode) |
|
144
|
6 |
9 |
if (lc $testMode eq 'sandbox') { } |
|
|
0 |
9 |
elsif (lc $testMode eq 'localhost') { } |
|
|
0 |
9 |
elsif (lc $testMode eq 'prelive') { } |
|
|
1 |
8 |
elsif ($testMode) { } |
|
239
|
4 |
2 |
if $content->{'card_number'} |
|
241
|
0 |
6 |
if ($content->{'recurring_billing'} and $content->{'recurring_billing'} eq 'YES') { } |
|
250
|
0 |
6 |
$content->{'orderSource'} eq 'recurring' ? : |
|
257
|
6 |
0 |
if ($content->{'products'} and ref $content->{'products'} eq 'ARRAY') |
|
264
|
0 |
6 |
if ($content->{'velocity_check'} and ($content->{'velocity_check'} != 0 and not $content->{'velocity_check'} =~ /false/i)) { } |
|
272
|
0 |
6 |
if ($content->{'partial_auth'} and ($content->{'partial_auth'} != 0 and not $content->{'partial_auth'} =~ /false/i)) { } |
|
288
|
232 |
56 |
if (defined $$content{$trunc->[0]}) { } |
|
|
0 |
56 |
elsif ($trunc->[4]) { } |
|
291
|
0 |
232 |
if ($trunc->[3] and $trunc->[2] and $len != 0 and $len < $trunc->[2]) { } |
|
|
0 |
232 |
elsif ($trunc->[3] and $trunc->[1] and $len > $trunc->[1]) { } |
|
309
|
54 |
24 |
if (defined $data->{$field}) |
|
318
|
6 |
0 |
if (defined $data->{$field}) |
|
329
|
12 |
0 |
unless $$convertPhone{lc $1} |
|
354
|
0 |
6 |
unless (defined $content->{'description'}) |
|
358
|
0 |
6 |
if not defined $content->{'card_token'} and defined $content->{'card_token'} |
|
460
|
6 |
0 |
if (defined $content->{'products'} and scalar @{$content->{'products'};} < 100) |
|
559
|
0 |
6 |
if ($action eq 'registerTokenRequest') { } |
|
|
5 |
1 |
elsif ($action eq 'sale') { } |
|
|
1 |
0 |
elsif ($action eq 'authorization') { } |
|
|
0 |
0 |
elsif ($action eq 'capture') { } |
|
|
0 |
0 |
elsif ($action eq 'credit') { } |
|
|
0 |
0 |
elsif ($action eq 'void') { } |
|
|
0 |
0 |
elsif ($action eq 'authReversal') { } |
|
|
0 |
0 |
elsif ($action eq 'accountUpdate') { } |
|
560
|
0 |
0 |
if length($content->{'card_number'} || '') == 0 |
|
568
|
1 |
4 |
if length($content->{'card_number'} || $content->{'card_token'} || '') == 0 |
|
576
|
3 |
1 |
$content->{'card_number'} ? : |
|
|
1 |
3 |
$content->{'card_token'} ? : |
|
588
|
0 |
1 |
if length($content->{'card_number'} || $content->{'card_token'} || '') == 0 |
|
596
|
1 |
0 |
$content->{'card_number'} ? : |
|
|
0 |
1 |
$content->{'card_token'} ? : |
|
620
|
0 |
0 |
if ($content->{'order_number'}) { } |
|
632
|
0 |
0 |
if length($content->{'card_number'} || $content->{'card_token'} || '') == 0 |
|
641
|
0 |
0 |
$content->{'card_number'} ? : |
|
|
0 |
0 |
$content->{'card_token'} ? : |
|
687
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
689
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
707
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
721
|
0 |
0 |
if ($content{'TransactionType'} eq 'capture') |
|
722
|
0 |
0 |
$content{'partial'} ? : |
|
742
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
744
|
0 |
0 |
if ($] ge '5.008') |
|
746
|
0 |
0 |
if utf8::is_utf8($post_data) |
|
752
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
758
|
0 |
0 |
if (exists $response->{'response'} and $response->{'response'} == 1) { } |
|
770
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
778
|
0 |
0 |
if $resp->{'authCode'} |
|
783
|
0 |
0 |
if ($resp->{'enhancedAuthResponse'} and $resp->{'enhancedAuthResponse'}{'fundingSource'} and $resp->{'enhancedAuthResponse'}{'fundingSource'}{'type'} eq 'PREPAID') { } |
|
794
|
0 |
0 |
if (defined $resp->{'duplicate'} and $resp->{'duplicate'} eq 'true') { } |
|
801
|
0 |
0 |
if (defined $resp->{'tokenResponse'}) |
|
807
|
0 |
0 |
if ($resp->{'enhancedAuthResponse'} and $resp->{'enhancedAuthResponse'}{'affluence'}) |
|
812
|
0 |
0 |
$self->result_code eq '000' ? : |
|
813
|
0 |
0 |
if ($self->result_code eq '010' or $self->result_code eq '802' and $self->card_token) |
|
821
|
0 |
0 |
unless ($self->is_success) |
|
824
|
0 |
0 |
$Business::OnlinePayment::Litle::ERRORS{$self->result_code}{'failure'} ? : |
|
829
|
0 |
0 |
unless ($self->is_success) |
|
830
|
0 |
0 |
unless ($self->error_message) |
|
845
|
0 |
0 |
if ($self->is_success) { } |
|
875
|
0 |
0 |
if ($action =~ /(?:UPLOAD|REPLACE)/) |
|
877
|
0 |
0 |
unless $content{$key} |
|
886
|
0 |
0 |
unless defined $actionRESTful->{$action} |
|
890
|
0 |
0 |
if (defined $content{'filecontent'}) |
|
891
|
0 |
0 |
if (length $content{'filecontent'} > 2097152) |
|
904
|
0 |
0 |
unless (defined $$allowedTypes{$content{'mimetype'} or ''}) |
|
929
|
0 |
0 |
if ($action eq 'RETRIEVE' and $response->{'status'} =~ /^200/ and not substr($response->{'content'}, 0, 500) =~ /
|
|
935
|
0 |
0 |
if (defined $xml_response and defined $xml_response->{'ChargebackCase'}{'Document'}{'ResponseCode'}) { } |
|
936
|
0 |
0 |
$xml_response->{'ChargebackCase'}{'Document'}{'ResponseCode'} eq '000' ? : |
|
954
|
0 |
0 |
unless $content{'case_id'} |
|
955
|
0 |
0 |
unless $content{'merchantid'} |
|
972
|
0 |
0 |
if (defined $xml_response and $xml_response->{'ChargebackCase'}{'ResponseCode'}) { } |
|
|
0 |
0 |
elsif (defined $xml_response and $xml_response->{'ChargebackCase'}{'DocumentEntry'}) { } |
|
980
|
0 |
0 |
if (defined $ref->{'id'} and ref $ref->{'id'} eq '') |
|
994
|
5 |
0 |
if ($status_code =~ /^200/) { } |
|
995
|
0 |
5 |
unless (eval {
do {
$response = XMLin($page)
}
}) |
|
1001
|
0 |
0 |
if ($status_code =~ /^(?:900|599)/) |
|
1037
|
0 |
0 |
if (not defined $self->{'batch_entries'} or scalar @{$self->{'batch_entries'};} < 1) |
|
1098
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
1101
|
0 |
0 |
if ($opts{'method'} and $opts{'method'} eq 'sftp') { } |
|
|
0 |
0 |
elsif ($opts{'method'} and $opts{'method'} eq 'https') { } |
|
1109
|
0 |
0 |
unless $sftp->put($io, "$filename.prg") |
|
1111
|
0 |
0 |
unless $sftp->rename("$filename.prg", "$filename.asc") |
|
1124
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
1127
|
0 |
0 |
if ($status_code =~ /^200/) { } |
|
1128
|
0 |
0 |
if (not eval {
do {
$response = XMLin($page)
}
}) { } |
|
|
0 |
0 |
elsif (exists $response->{'response'} and $response->{'response'} == 1) { } |
|
1153
|
0 |
0 |
$response->{'response'} eq '0' ? : |
|
1155
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
1156
|
0 |
0 |
unless ($self->is_success) |
|
1157
|
0 |
0 |
unless ($self->error_message) |
|
1168
|
0 |
0 |
if ($self->is_success) |
|
1229
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
1231
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
1234
|
0 |
0 |
if ($status_code =~ /^200/) { } |
|
1235
|
0 |
0 |
if (not eval {
do {
$response = XMLin($page)
}
}) { } |
|
|
0 |
0 |
elsif (exists $response->{'response'} and $response->{'response'} == 1) { } |
|
1253
|
0 |
0 |
if ($response->{'RFRResponse'}) { } |
|
1262
|
0 |
0 |
$resp->{'response'} eq '000' ? : |
|
1270
|
0 |
0 |
unless $args->{'ftp_username'} |
|
1271
|
0 |
0 |
unless $args->{'ftp_password'} |
|
1280
|
0 |
0 |
if $sftp->error |
|
1282
|
0 |
0 |
if ($dir) |
|
1283
|
0 |
0 |
unless $sftp->setcwd($dir) |
|
1307
|
0 |
0 |
unless my $ls = $sftp->ls('wanted', qr/\.asc$/) |
|
1322
|
0 |
0 |
unless $opts{'batch_id'} |
|
1327
|
0 |
0 |
unless $sftp->remove($filename) |
|
1340
|
0 |
0 |
unless $opts{'batch_id'} |
|
1343
|
0 |
0 |
if ($opts{'batch_return'}) { } |
|
1354
|
0 |
0 |
unless $post_data = $sftp->get_content($filename) |
|
1361
|
0 |
0 |
if (not eval {
do {
$response = XMLin($post_data, 'ForceArray', ['accountUpdateResponse'], 'KeyAttr', '-id')
}
}) { } |
|
|
0 |
0 |
elsif (exists $response->{'response'} and $response->{'response'} == 1) { } |
|
1381
|
0 |
0 |
$response->{'response'} eq '0' ? : |
|
1382
|
0 |
0 |
if ($self->is_success) |
|
1405
|
88 |
0 |
if ($map{'content'} and ref $map{'content'} eq 'HASH') { } |
|
1415
|
39 |
420 |
if (ref $map{$_} eq 'HASH') { } |
|
|
6 |
414 |
elsif (ref $map{$_} eq 'ARRAY') { } |
|
|
0 |
414 |
elsif (ref $map{$_}) { } |
|
|
330 |
84 |
elsif (exists $content{$map{$_}}) { } |
|
1416
|
34 |
5 |
if keys %{$map{$_};} |
|
1428
|
370 |
89 |
if (defined $value) { } |
|
1439
|
47 |
210 |
if (ref $value eq 'HASH') { } |
|
|
4 |
206 |
elsif (ref $value eq 'ARRAY') { } |
|
1440
|
0 |
47 |
$value->{'attr'} ? : |
|
1443
|
0 |
190 |
if $_ eq 'attr' |
|
1468
|
2 |
5 |
unless $cc |
|
1485
|
6 |
6 |
unless $ptr |
|
1489
|
6 |
0 |
$ptr->{'cvv2'} ? : |
|
1507
|
0 |
0 |
if (not $content{'activity_date'} && $content{'activity_date'} =~ /^\d{4}-(\d{2})-(\d{2})$/ or $1 > 12 or $2 > 31) |
|
1518
|
0 |
0 |
if (defined $content{'financial_only'}) { } |
|
1519
|
0 |
0 |
$content{'financial_only'} ? : |
|
1561
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
1575
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
1578
|
0 |
0 |
if ($status_code =~ /^200/) { } |
|
1580
|
0 |
0 |
if (not eval {
do {
$response = XMLin($page, 'ForceArray', ['caseActivity'])
}
}) { } |
|
|
0 |
0 |
elsif (exists $response->{'response'} and $response->{'response'} == 1) { } |
|
1601
|
0 |
0 |
if ($status_code =~ /^(?:900|599)/) |
|
1615
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
1634
|
0 |
0 |
unless $content{$key} |
|
1680
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
1693
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
1696
|
0 |
0 |
if ($status_code =~ /^200/) { } |
|
1698
|
0 |
0 |
unless (eval {
do {
$response = XMLin($page)
}
}) |
|
1702
|
0 |
0 |
if (exists $response->{'response'}) { } |
|
1718
|
0 |
0 |
if ($status_code =~ /^(?:900|599)/) |