#
# Please ensure that your POS terminals, websites and any pertinent
# internal systems can accept these new IINs.
-
+#
+# from http://en.wikipedia.org/wiki/Laser_(debit_card)#Technical
+# Laser cards are prefixed with either "6304", "6706", "6771" or "6709", and
+# may be between 16 and 19 characters in length.
0.31 unreleased
- Add LICENSE section to POD documentation
- Add META.yml to MANIFEST
+ - Add Irish Laser card, thanks to Eoin Redmond for the heads-up.
0.30 Mon Dec 18 23:24:25 PST 2006
- back after two and a half years; happy hanukkah!
Switch
Solo
China Union Pay
+ Laser
Unknown
"Not a credit card" is returned on obviously invalid data values.
be treated as in a different country by setting
C<$Business::OnlinePayment::Country> to your two-letter country code. This
is probably what you want to determine if you accept the card, or which
-merchant agreement is is processed through.
+merchant agreement it is processed through.
You can also set C<$Business::OnlinePayment::Country> to a false value such
as the empty string to return the "base" card type. This is probably only
return "China Union Pay"
if $number =~ /^622[\dx]{13}$/o;
+ return "Laser"
+ if $number =~ /^6(304|7(06|09|71))[\dx]{12,15}$/o;
+
return "Unknown";
}
'4111xxxxxxxxxxxx' => 'VISA card',
'6599xxxxxxxxxxxx' => 'Discover card',
'6222xxxxxxxxxxxx' => 'Discover card', #China Union Pay
+ '6304980000000000004' => 'Laser',
);
while( my ($k, $v)=each(%test_table) ){
if(cardtype($k) ne $v){