NAME

Math::CheckDigits - Perl Module to generate and test check digits

SYNOPSIS

use Math::CheckDigits;
my $cd = Math::CheckDigits->new(
  modulus => 11,
  weight  => [2..7],
);
print $cd->checkdigit('12345678'); #5
print $cd->complete('12345678'); #123456785
print 'ok' if $cd->is_valid('123456785');

set options

use Math::CheckDigits;
my $cd = Math::CheckDigits->new(
  modulus => 10,
  weight  => [1, 2],
)->options(
  runes => 1,
);

print $cd->complete('348764') #3487649

advanced

# modulus 16
use Math::CheckDigits;
$cd = Math::CheckDigits->new(
  modulus => 16,
  weight  => [1],
)->trans_table(
  10  => '-',
  11  => '$',
  12  => ':',
  13  => '.',
  14  => '/',
  15  => '+',
  16  => 'a',
  17  => 'b',
  18  => 'c',
  19  => 'd',
);
print $cd->checkdigit('a16329aa') # $;

DESCRIPTION

Math::CheckDigits is the Module for generating and testing check digits.

This module is similar to Algorithm::CheckDigits. But, in this module, check digits can be computed from not format names (ex. JAN ISBN..), but two arguments, Modulus and Weight. This is the difference between Algorithm::CheckDigits and this module.

This module is effective to any check digits format using Modulus and Weight, and can't support the format that are generated from complicated algorithm.

AUTHOR

Songmu y.songmu@gmail.com

SEE ALSO

Algorithm::CheckDigits

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.