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.