|
|
Regexp::Common::support -- Support functions for Regexp::Common.
use Regexp::Common::_support qw /luhn/;
luhn ($number) # Returns true/false.
This module contains some subroutines to be used by other Regexp::Common
modules. It's not intended to be used directly. Subroutines from the
module may disappear without any notice, or their meaning or interface
may change without notice.
This subroutine returns true if its argument passes the luhn checksum test.
http://www.webopedia.com/TERM/L/Luhn_formula.html.
$Log: _support.pm,v $ Revision 2.101 2004/12/18 11:28:25 abigail POD nit (Mike Castle)
Revision 2.100 2004/07/01 14:47:00 abigail Force version
Revision 2.1 2004/07/01 14:46:35 abigail Initial checkin
Abigail (regexp-common@abigail.nl).
Bound to be plenty.
Copyright (c) 2001-2004, Damian Conway and Abigail. All Rights Reserved. This module is free software. It may be used, redistributed and/or modified under the terms of the Perl Artistic License (see http://www.perl.com/perl/misc/Artistic.html)