0.33 unreleased
- With $Country explicity to CA, fix identification of JCB 3529-3589
as Discover
+ - Allow use of our subroutines as class methods, patch from Adam
+ Kennedy, thanks!
0.32 Thu Feb 21 16:02:42 PST 2013
- Add Israeli Isracard (no checksum yet)
Copyright (C) 1995,1996,1997 Jon Orwant
Copyright (C) 2001-2006 Ivan Kohler
-Copyright (C) 2007-2013 Freeside Internet Services, Inc.
+Copyright (C) 2007-2014 Freeside Internet Services, Inc.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.8 or,
## a lot more than just 6011*, they don't handle processing agreements, etc.
sub cardtype {
+ # Allow use as a class method
+ shift if UNIVERSAL::isa( $_[0], 'Business::CreditCard' );
+
my ($number) = @_;
$number =~ s/[\s\-]//go;
}
sub generate_last_digit {
+ # Allow use as a class method
+ shift if UNIVERSAL::isa( $_[0], 'Business::CreditCard' );
+
my ($number) = @_;
die "invalid operation" if length($number) == 8 || length($number) == 9;
# $type = '' if $ccn % 10;
# return $type;
sub validate {
+ # Allow use as a class method
+ shift if UNIVERSAL::isa( $_[0], 'Business::CreditCard' );
+
my ($number) = @_;
my ($i, $sum, $weight);