Business::BR::PIS - Perl module to test for correct PIS numbers
use Business::BR::PIS; print "ok " if test_pis('121.51144.13-7'); # prints 'ok ' print "bad " unless test_pis('121.51144.13-0'); # prints 'bad '
This module handles PIS numbers, testing, formatting, etc.
test_pis is exported by default.
random_pis can be exported on demand.
THE CHECK EQUATIONS
A correct PIS number has a check digit which is computed from the base 10 first digits. Consider the PIS number written as 11 digits
c c c c c c c c c c dv
To check whether a PIS is correct or not, it has to satisfy the check equation:
c*3+c*2+c*9+c*8+c*7+ c*6+c*5+c*4+c*3+c*2+dv = 0 (mod 11) or = 1 (mod 11) (if dv=0)
Absolute lack of documentation by now.
Please reports bugs via CPAN RT, http://rt.cpan.org/NoAuth/Bugs.html?Dist=Business-BR-Ids By doing so, the author will receive your reports and patches, as well as the problem and solutions will be documented.
A. R. Ferreira, <firstname.lastname@example.org>
COPYRIGHT AND LICENSE
Copyright (C) 2005 by A. R. Ferreira
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.