| line |
true |
false |
branch |
|
40
|
2 |
4 |
if (20 * ($i - 1) < length $content{'address'}) |
|
45
|
0 |
2 |
$content{'cvv2'} ? : |
|
48
|
2 |
0 |
if ($self->test_transaction) { } |
|
141
|
0 |
0 |
if ($result->getFailure eq 'true') { } |
|
196
|
4 |
36 |
if $label =~ /^(phone|eveningphone|fax|zip)$/ |
|
197
|
8 |
32 |
if $label =~ /^(country|state)$/ |
|
198
|
8 |
32 |
unless $value =~ /\S/ |
|
200
|
4 |
28 |
if ($label =~ /^type$/) |
|
201
|
0 |
4 |
unless $_Valid_Type{$value} |
|
204
|
28 |
4 |
if $_Max_Length{$label} and $_Max_Length{$label} > 0 |
|
206
|
0 |
32 |
unless $_Valid_Field{$label} |
|
207
|
0 |
32 |
if $label eq 'email' and not $value =~ /\w+\@\w+/ |
|
208
|
0 |
32 |
if $label eq 'phone' and length $value < 10 |
|
209
|
0 |
32 |
if $label eq 'eveningphone' and length $value < 10 |
|
223
|
32 |
24 |
if defined $$self{$label} |
|
262
|
2 |
8 |
if ($label =~ /^address$/) |
|
264
|
0 |
2 |
unless $pref eq 'Address' |
|
266
|
0 |
2 |
unless $type eq 'shipping' |
|
270
|
2 |
6 |
if ($label =~ /^payInstrument$/) |
|
272
|
0 |
2 |
unless $pref eq 'CreditCard' or $pref eq 'TeleCheck' |
|
277
|
2 |
4 |
if $label =~ /^(ponumber|verbalauthcode|ipaddress|refurl|browser|verbalauthdate)$/ |
|
279
|
2 |
4 |
if ($label =~ /^ordernumber$/) |
|
281
|
0 |
2 |
unless $value =~ /^\d+$/ and length $value <= 10 |
|
284
|
1 |
5 |
if ($label =~ /^verbalauthdate$/) |
|
286
|
0 |
1 |
unless $value =~ /^\d+$/ and length $value <= 17 |
|
289
|
0 |
6 |
if ($label =~ /^(shippingcost|taxamount)$/) |
|
294
|
4 |
2 |
if $_Max_Length{$label} and $_Max_Length{$label} > 0 |
|
296
|
0 |
6 |
unless $_Valid_Field_Name{$label} |
|
297
|
0 |
6 |
unless $value =~ /\S/ |
|
305
|
0 |
2 |
unless $pref eq 'LineItem' |
|
313
|
0 |
2 |
unless $$self{'ordernumber'} |
|
314
|
0 |
2 |
unless scalar @{$$self{'items'};} > 0 |
|
316
|
0 |
2 |
if $$self{'shippingcost'} |
|
317
|
0 |
2 |
if $$self{'taxamount'} |
|
318
|
0 |
2 |
$$self{'ecommercecode'} ? : |
|
321
|
2 |
26 |
if $label =~ /^description$/ |
|
322
|
6 |
20 |
if defined $$self{$label} |
|
328
|
2 |
0 |
if $$self{'description'} |
|
342
|
0 |
0 |
unless $xml =~ m[.*] |
|
347
|
0 |
0 |
if $xml =~ /authcode="([^\"]*)"/ |
|
348
|
0 |
0 |
if $xml =~ /authstatus="([^\"]*)"/ |
|
349
|
0 |
0 |
if $xml =~ /avs="([^\"]*)"/ |
|
350
|
0 |
0 |
if $xml =~ /cvv2result="([^\"]*)"/ |
|
351
|
0 |
0 |
if $xml =~ /csp="([^\"]*)"/ |
|
352
|
0 |
0 |
if $xml =~ /merchant="([^\"]*)"/ |
|
353
|
0 |
0 |
if $xml =~ /failure="([^\"]*)"/ |
|
354
|
0 |
0 |
if $xml =~ /ordernumber="([^\"]*)"/ |
|
355
|
0 |
0 |
if $xml =~ /transactionid="([^\"]*)"/ |
|
356
|
0 |
0 |
if $xml =~ />([^<]*)
|
|
357
|
0 |
0 |
unless defined $$self{'failure'} and $$self{'failure'} =~ /^true$/ |
|
402
|
2 |
6 |
if ($label =~ /^address$/) |
|
404
|
0 |
2 |
unless $pref eq 'Address' |
|
406
|
0 |
2 |
unless $type eq 'billing' |
|
413
|
2 |
4 |
if ($label =~ /^number$/) |
|
416
|
0 |
2 |
unless $value |
|
419
|
2 |
4 |
if ($label =~ /^expiration$/) |
|
422
|
0 |
2 |
unless $month =~ /\d\d/ and $year =~ /\d\d/ |
|
426
|
4 |
2 |
if $_Max_Length{$label} and $_Max_Length{$label} > 0 |
|
428
|
0 |
6 |
unless $_Valid_Field_Name{$label} |
|
429
|
0 |
6 |
unless $value =~ /\S/ |
|
439
|
2 |
8 |
if $label =~ /^address$/ |
|
440
|
6 |
2 |
if defined $$self{$label} |
|
451
|
0 |
2 |
if $cardNumber =~ /^\s*$/ |
|
455
|
30 |
0 |
$weight < 10 ? : |
|
457
|
2 |
0 |
if substr($cardNumber, -1) == (10 - $sum % 10) % 10 |
|
488
|
4 |
6 |
if $label =~ /^(sku|description)$/ |
|
490
|
2 |
8 |
if ($label =~ /^quantity$/) |
|
494
|
2 |
8 |
if ($label =~ /^taxrate$/) |
|
498
|
2 |
8 |
if ($label =~ /^unitprice$/) |
|
503
|
2 |
8 |
if $_Max_Length{$label} and $_Max_Length{$label} > 0 |
|
505
|
0 |
10 |
unless $_Valid_Field_Name{$label} |
|
506
|
0 |
10 |
unless $value =~ /\S/ |
|
514
|
2 |
0 |
if $$self{'unitprice'} |
|
517
|
10 |
0 |
if defined $$self{$label} |
|
549
|
0 |
2 |
if $slowly > 0 |
|
558
|
0 |
2 |
$page ? : |
|
583
|
4 |
0 |
if $label =~ /^(merchant|password|csp)$/ |
|
585
|
0 |
4 |
unless $_Valid_Field_Name{$label} |
|
586
|
0 |
4 |
unless $value =~ /\S/ |
|
594
|
0 |
2 |
unless $pref eq 'Auth' |
|
595
|
2 |
0 |
unless $$self{'auths'} |
|
602
|
0 |
2 |
unless scalar @{$$self{'auths'};} > 0 |
|
606
|
4 |
2 |
if defined $$self{$label} |
|
622
|
0 |
2 |
unless $param{'host'} |
|
623
|
0 |
2 |
unless $param{'port'} |
|
624
|
0 |
2 |
unless $param{'path'} |
|
634
|
0 |
2 |
unless ref $req eq 'Request' |
|
637
|
0 |
2 |
if ($$self{'debuglevel'} > 0) |
|
638
|
0 |
0 |
if ($debugfile) { } |
|
657
|
2 |
0 |
if ($msg) |
|
660
|
0 |
0 |
if ($$self{'debuglevel'} > 0) |
|
661
|
0 |
0 |
if ($debugfile) { } |
|
670
|
0 |
0 |
unless $output |
|
683
|
0 |
2 |
unless $type =~ /^description$/ |