| 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
|
1 |
7 |
if (defined $_defaults{'Scrubber'}) |
|
124
|
0 |
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'} |
|
479
|
6 |
0 |
if (defined $content->{'products'} and scalar @{$content->{'products'};} < 100) |
|
674
|
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 'force_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') { } |
|
675
|
0 |
0 |
if length($content->{'card_number'} || '') == 0 |
|
683
|
1 |
4 |
if length($content->{'card_number'} || $content->{'card_token'} || '') == 0 |
|
694
|
3 |
1 |
$content->{'card_number'} ? : |
|
|
1 |
3 |
$content->{'card_token'} ? : |
|
721
|
0 |
1 |
if length($content->{'card_number'} || $content->{'card_token'} || '') == 0 |
|
732
|
1 |
0 |
$content->{'card_number'} ? : |
|
|
0 |
1 |
$content->{'card_token'} ? : |
|
786
|
0 |
0 |
$content->{'card_number'} ? : |
|
|
0 |
0 |
$content->{'card_token'} ? : |
|
800
|
0 |
0 |
if ($content->{'order_number'}) { } |
|
815
|
0 |
0 |
if length($content->{'card_number'} || $content->{'card_token'} || '') == 0 |
|
824
|
0 |
0 |
$content->{'card_number'} ? : |
|
|
0 |
0 |
$content->{'card_token'} ? : |
|
877
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
879
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
897
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
911
|
0 |
0 |
if ($content{'TransactionType'} eq 'capture') |
|
912
|
0 |
0 |
$content{'partial'} ? : |
|
932
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
934
|
0 |
0 |
if ($] ge '5.008') |
|
936
|
0 |
0 |
if utf8::is_utf8($post_data) |
|
942
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
948
|
0 |
0 |
if (exists $response->{'response'} and $response->{'response'} == 1) { } |
|
960
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
968
|
0 |
0 |
if $resp->{'authCode'} |
|
973
|
0 |
0 |
if ($resp->{'enhancedAuthResponse'} and $resp->{'enhancedAuthResponse'}{'fundingSource'} and $resp->{'enhancedAuthResponse'}{'fundingSource'}{'type'} eq 'PREPAID') { } |
|
984
|
0 |
0 |
if (defined $resp->{'duplicate'} and $resp->{'duplicate'} eq 'true') { } |
|
991
|
0 |
0 |
if (defined $resp->{'tokenResponse'}) |
|
997
|
0 |
0 |
if ($resp->{'enhancedAuthResponse'} and $resp->{'enhancedAuthResponse'}{'affluence'}) |
|
1002
|
0 |
0 |
$self->result_code eq '000' ? : |
|
1003
|
0 |
0 |
if ($self->result_code eq '010' or $self->result_code eq '802' and $self->card_token) |
|
1011
|
0 |
0 |
unless ($self->is_success) |
|
1014
|
0 |
0 |
$Business::OnlinePayment::Litle::ERRORS{$self->result_code}{'failure'} ? : |
|
1019
|
0 |
0 |
unless ($self->is_success) |
|
1020
|
0 |
0 |
unless ($self->error_message) |
|
1035
|
0 |
0 |
if ($self->is_success) { } |
|
1065
|
0 |
0 |
if ($action =~ /(?:UPLOAD|REPLACE)/) |
|
1067
|
0 |
0 |
unless $content{$key} |
|
1076
|
0 |
0 |
unless defined $actionRESTful->{$action} |
|
1080
|
0 |
0 |
if (defined $content{'filecontent'}) |
|
1081
|
0 |
0 |
if (length $content{'filecontent'} > 2097152) |
|
1094
|
0 |
0 |
unless (defined $$allowedTypes{$content{'mimetype'} or ''}) |
|
1119
|
0 |
0 |
if ($action eq 'RETRIEVE' and $response->{'status'} =~ /^200/ and not substr($response->{'content'}, 0, 500) =~ /
|
|
1125
|
0 |
0 |
if (defined $xml_response and defined $xml_response->{'ChargebackCase'}{'Document'}{'ResponseCode'}) { } |
|
1126
|
0 |
0 |
$xml_response->{'ChargebackCase'}{'Document'}{'ResponseCode'} eq '000' ? : |
|
1144
|
0 |
0 |
unless $content{'case_id'} |
|
1145
|
0 |
0 |
unless $content{'merchantid'} |
|
1162
|
0 |
0 |
if (defined $xml_response and $xml_response->{'ChargebackCase'}{'ResponseCode'}) { } |
|
|
0 |
0 |
elsif (defined $xml_response and $xml_response->{'ChargebackCase'}{'DocumentEntry'}) { } |
|
1170
|
0 |
0 |
if (defined $ref->{'id'} and ref $ref->{'id'} eq '') |
|
1184
|
5 |
0 |
if ($status_code =~ /^200/) { } |
|
1185
|
0 |
5 |
unless (eval {
do {
$response = XMLin($page)
}
}) |
|
1191
|
0 |
0 |
if ($status_code =~ /^(?:900|599)/) |
|
1227
|
0 |
0 |
if (not defined $self->{'batch_entries'} or scalar @{$self->{'batch_entries'};} < 1) |
|
1288
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
1291
|
0 |
0 |
if ($opts{'method'} and $opts{'method'} eq 'sftp') { } |
|
|
0 |
0 |
elsif ($opts{'method'} and $opts{'method'} eq 'https') { } |
|
1299
|
0 |
0 |
unless $sftp->put($io, "$filename.prg") |
|
1301
|
0 |
0 |
unless $sftp->rename("$filename.prg", "$filename.asc") |
|
1314
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
1317
|
0 |
0 |
if ($status_code =~ /^200/) { } |
|
1318
|
0 |
0 |
if (not eval {
do {
$response = XMLin($page)
}
}) { } |
|
|
0 |
0 |
elsif (exists $response->{'response'} and $response->{'response'} == 1) { } |
|
1343
|
0 |
0 |
$response->{'response'} eq '0' ? : |
|
1345
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
1346
|
0 |
0 |
unless ($self->is_success) |
|
1347
|
0 |
0 |
unless ($self->error_message) |
|
1358
|
0 |
0 |
if ($self->is_success) |
|
1419
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
1421
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
1424
|
0 |
0 |
if ($status_code =~ /^200/) { } |
|
1425
|
0 |
0 |
if (not eval {
do {
$response = XMLin($page)
}
}) { } |
|
|
0 |
0 |
elsif (exists $response->{'response'} and $response->{'response'} == 1) { } |
|
1443
|
0 |
0 |
if ($response->{'RFRResponse'}) { } |
|
1452
|
0 |
0 |
$resp->{'response'} eq '000' ? : |
|
1460
|
0 |
0 |
unless $args->{'ftp_username'} |
|
1461
|
0 |
0 |
unless $args->{'ftp_password'} |
|
1470
|
0 |
0 |
if $sftp->error |
|
1472
|
0 |
0 |
if ($dir) |
|
1473
|
0 |
0 |
unless $sftp->setcwd($dir) |
|
1497
|
0 |
0 |
unless my $ls = $sftp->ls('wanted', qr/\.asc$/) |
|
1512
|
0 |
0 |
unless $opts{'batch_id'} |
|
1517
|
0 |
0 |
unless $sftp->remove($filename) |
|
1530
|
0 |
0 |
unless $opts{'batch_id'} |
|
1533
|
0 |
0 |
if ($opts{'batch_return'}) { } |
|
1544
|
0 |
0 |
unless $post_data = $sftp->get_content($filename) |
|
1551
|
0 |
0 |
if (not eval {
do {
$response = XMLin($post_data, 'ForceArray', ['accountUpdateResponse'], 'KeyAttr', '-id')
}
}) { } |
|
|
0 |
0 |
elsif (exists $response->{'response'} and $response->{'response'} == 1) { } |
|
1571
|
0 |
0 |
$response->{'response'} eq '0' ? : |
|
1572
|
0 |
0 |
if ($self->is_success) |
|
1595
|
160 |
0 |
if ($map{'content'} and ref $map{'content'} eq 'HASH') { } |
|
1605
|
106 |
827 |
if (ref $map{$_} eq 'HASH') { } |
|
|
6 |
821 |
elsif (ref $map{$_} eq 'ARRAY') { } |
|
|
0 |
821 |
elsif (ref $map{$_}) { } |
|
|
348 |
473 |
elsif (exists $content{$map{$_}}) { } |
|
1606
|
45 |
61 |
if keys %{$map{$_};} |
|
1618
|
399 |
534 |
if (defined $value) { } |
|
1629
|
60 |
284 |
if (ref $value eq 'HASH') { } |
|
|
5 |
279 |
elsif (ref $value eq 'ARRAY') { } |
|
1630
|
0 |
60 |
$value->{'attr'} ? : |
|
1633
|
0 |
264 |
if $_ eq 'attr' |
|
1658
|
2 |
5 |
unless $cc |
|
1675
|
6 |
6 |
unless $ptr |
|
1679
|
6 |
0 |
$ptr->{'cvv2'} ? : |
|
1697
|
0 |
0 |
if (not $content{'activity_date'} && $content{'activity_date'} =~ /^\d{4}-(\d{2})-(\d{2})$/ or $1 > 12 or $2 > 31) |
|
1708
|
0 |
0 |
if (defined $content{'financial_only'}) { } |
|
1709
|
0 |
0 |
$content{'financial_only'} ? : |
|
1751
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
1765
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
1768
|
0 |
0 |
if ($status_code =~ /^200/) { } |
|
1770
|
0 |
0 |
if (not eval {
do {
$response = XMLin($page, 'ForceArray', ['caseActivity'])
}
}) { } |
|
|
0 |
0 |
elsif (exists $response->{'response'} and $response->{'response'} == 1) { } |
|
1791
|
0 |
0 |
if ($status_code =~ /^(?:900|599)/) |
|
1805
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
1824
|
0 |
0 |
unless $content{$key} |
|
1870
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
1883
|
0 |
0 |
if $Business::OnlinePayment::Litle::DEBUG |
|
1886
|
0 |
0 |
if ($status_code =~ /^200/) { } |
|
1888
|
0 |
0 |
unless (eval {
do {
$response = XMLin($page)
}
}) |
|
1892
|
0 |
0 |
if (exists $response->{'response'}) { } |
|
1908
|
0 |
0 |
if ($status_code =~ /^(?:900|599)/) |