Algorithm-CheckDigits

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

	- added cgi-bin/checkdigits.cgi

1.0.0 Mo 13. Sep 21:27:23 CEST 2010
	- reworked Algorithm::CheckDigits::MXX_001

0.90.0 Fr 10. Sep 15:52:51 CEST 2010
	- added scripts/checkdigits.pl as sample script

0.53  Fr 20. Nov 11:46:08 CET 2009
	- cleaned up documentation
	  (thanks to Romuald Żyłła for pointing me to more errors)
	- added $VERSION into all modules to close #36482 at
	  rt.cpan.org

0.52  Mi 11. Nov 10:31:18 CET 2009
       - added link to english description for ustid_pl

0.51  Mi 11. Nov 10:01:36 CET 2009
       - corrected documentation for ustid_pl/vatnr_pl
	 (thanks to Romuald Żyłła for pointing me to the error)
       - reworked algorithm and documentation for esr5_ch according to
         http://www.sic.ch/de/dl_tkicch_dta.pdf
	 (thanks to Romuald Żyłła for pointing me to the error)

0.50  Fr 6. Jun 21:45:04 CEST 2008
       - put $VERSION back into CheckDigits.pm

0.49  Fr 16. Mai 22:54:43 CEST 2008
       - CheckDigits/MXX_002.pm computes checkdigits for CAS registration
         numbers with ten digits.

0.48  Di 9. Okt 01:07:02 CEST 2007
	- keep VERSION in Makefile.PL

Changes  view on Meta::CPAN

	- added tests for isbn13

0.41  Do Jun 29 00:34:04 CEST 2006
	- added t/pod-coverage.t
	- added missing documentation

0.40  Mi Jun 28 23:31:00 CEST 2006
	- fixed code examples in POD according to
	  http://annocpan.org/~MAMAWE/Algorithm-CheckDigits-0.39/CheckDigits/MXX_002.pm
	- CheckDigits.pm: POD: corrected ABSTRACT
	- added t/pod.t to check for POD errors
	- fixed POD according to t/pod.t
	- Clarified POD for Algorithm/CheckDigits/MXX_006.pm

0.39  Sun, 12 Mar 2006 17:50:13 +0100
	- Added Verhoeff scheme (Method XX-006) taking some code from
	  Algorithm::Verhoeff.
	- Refined POD for CheckDigits.pm

0.38  Wed, 26 Jan 2005 22:48:10 +0100
	- Refined Method M11-011 (now accepts full vatrn)

lib/Algorithm/CheckDigits.pm  view on Meta::CPAN

digits. For more information have a look at the web site
F<www.pruefziffernberechnung.de> (german).

=head1 SUBROUTINES/METHODS

=head2 CheckDigits($method)

Returns an object of an appropriate Algorithm::CheckDigits class for the
given algorithm.

Dies with an error message if called with an unknown algorithm.

See below for the available algorithms. Every object understands the following
methods:

=over 4

=item is_valid($number)

Returns true or false if C<$number> contains/contains no valid check digit.

t/upc.t  view on Meta::CPAN

use Test;
BEGIN {
	plan(tests => 1); 
};
use Algorithm::CheckDigits;

my $upc = CheckDigits('upc');

# there was an error exposed with that number, so I include it here to
# avoid making that error again.
#
# Thanks to Aaron W. West
#
ok($upc->is_valid("724358016420"));