http://www.perlmonks.org?node_id=640177


in reply to CPAN Author Struggle: Am I a jerk? (unter-jerk)

The only part that confused me was

Feel free to re-open this bug if verify() doesn't work with any real-world credit card number or you have a patch. :)

He asked for a patch then rejected it. Either way let it go and figure out a more appropriate module for your need. Lots of modules can be reused for unintended reasons but once its apparent he only wants to handle real cards let it be. Makeing a module better and work right is different from making it work more like you want ;) BTW the following code does what you want and still uses the module so you get any future enhancements. Definitely redundant code in that module for getting the check digit.

sub check_last { my $last_digit = substr($_[0],-1); my $card = substr($_[0],0,-1); return 0+($last_digit == generate_last_digit($card)); }

___________
Eric Hodges