| line |
true |
false |
branch |
|
180
|
0 |
41 |
if UNIVERSAL::isa($_[0], 'Business::CreditCard') |
|
187
|
0 |
41 |
if $number =~ /[^\dx]/io |
|
192
|
0 |
41 |
unless length $number >= 13 || length $number == 8 || length $number == 9 and 0 + $number |
|
199
|
3 |
38 |
if $number =~ /^4[0-8][\dx]{11,17}$/o |
|
201
|
1 |
35 |
if $number =~ /^5[1-5][\dx]{14}$/o or $number =~ /^2 ( 22[1-9] | 2[3-9][\dx] | [3-6][\dx]{2} | 7[0-1][\dx] | 720 ) [\dx]{12}$/ox or $number =~ /^2[2-7]xx[\dx]{12}$/o |
|
206
|
2 |
33 |
if $number =~ /^3[47][\dx]{13}$/o |
|
208
|
7 |
22 |
if $number =~ /^30[0-5][\dx]{13,16}$/o or $number =~ /^3095[\dx]{12}$/o or $number =~ /^36[\dx]{12,17}$/o or $number =~ /^3[89][\dx]{14,17}$/o or $number =~ /^6011[\dx]{12,15}$/o or $number =~ /^64[4-9][\dx]{13,16}$/o or $number =~ /^65[\dx]{14,17}$/o or $number =~ /^62[24-68][\dx]{13,16}$/o and $Country =~ /^(US|MX|AI|AG|AW|BS|BB|BM|BQ|VG|KY|CW|DM|DO|GD|GP|JM|MQ|MS|BL|KN|LC|VC|MF|SX|TT|TC)$/io or $number =~ /^35(2[89]|[3-8][\dx])[\dx]{12,15}$/o and $Country =~ /^(US|PR|VI|MP|PW|GU)$/io |
|
219
|
0 |
22 |
if $number =~ /^49(03(0[2-9]|3[5-9])|11(0[1-2]|7[4-9]|8[1-2])|36[0-9]{2})[\dx]{10}([\dx]{2,3})?$/o or $number =~ /^564182[\dx]{10}([\dx]{2,3})?$/o or $number =~ /^6(3(33[0-4][0-9])|759[0-9]{2})[\dx]{10}([\dx]{2,3})?$/o |
|
224
|
1 |
21 |
if $number =~ /^4[\dx]{12,18}$/o |
|
230
|
2 |
19 |
if $number =~ /^2(014|149)[\dx]{11}$/o |
|
232
|
11 |
8 |
if $number =~ /^(3[\dx]{4}|2131|1800)[\dx]{11}$/o |
|
234
|
1 |
7 |
if $number =~ /^56(10[\dx][\dx]|022[1-5])[\dx]{10}$/o |
|
236
|
0 |
7 |
if $number =~ /^6(3(34[5-9][0-9])|767[0-9]{2})[\dx]{10}([\dx]{2,3})?$/o |
|
239
|
2 |
5 |
if $number =~ /^62[24-68][\dx]{13}$/o |
|
242
|
1 |
4 |
if $number =~ /^6(304|7(06|09|71))[\dx]{12,15}$/o |
|
245
|
2 |
2 |
if $number =~ /^[\dx]{8,9}$/ |
|
253
|
0 |
0 |
if UNIVERSAL::isa($_[0], 'Business::CreditCard') |
|
261
|
0 |
0 |
if $number =~ /^6(01104|506[01]0)[\dx]{10,13}$/o |
|
268
|
0 |
0 |
if UNIVERSAL::isa($_[0], 'Business::CreditCard') |
|
272
|
0 |
0 |
if length $number == 8 or length $number == 9 |
|
280
|
0 |
0 |
$weight < 10 ? : |
|
303
|
0 |
2 |
if UNIVERSAL::isa($_[0], 'Business::CreditCard') |
|
309
|
0 |
2 |
if $number =~ /[^\d\s]/ |
|
313
|
2 |
0 |
if ($number =~ /^[\dx]{8,9}$/) |
|
314
|
1 |
1 |
if length $number == 8 |
|
318
|
2 |
0 |
if $sum % 11 == 0 |
|
322
|
0 |
0 |
unless length $number >= 13 and 0 + $number |
|
326
|
0 |
0 |
$weight < 10 ? : |
|
329
|
0 |
0 |
if substr($number, -1) == (10 - $sum % 10) % 10 |