File Coverage

blib/lib/PESEL/Generator.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	4	50.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	29	31	93.5

package PESEL::Generator;

#-----------------------------------------------------------------------
use vars qw( $VERSION );
$VERSION = 1.4;
#-----------------------------------------------------------------------
use warnings;
use strict;
use base "Exporter::Tiny";
#=======================================================================
our @EXPORT_OK = qw( pesel );
#=======================================================================
sub new {
	return bless { }, $_[ 0 ];
}
#=======================================================================
sub pesel {
	while( 1 ){
		my $psl = 	sprintf( '%02d', 1 + rand 99 		) .
					sprintf( '%02d', 1 + rand 12 		) .
					sprintf( '%02d', 1 + rand 27 		) .
					sprintf( '%03d', 1 + rand 999		) .
					sprintf( '%d'  , rand > 0.5 ? 1 : 0 ) ;

		my @dig = split( //, $psl );
		my $chk = $dig[ 0 ] * 1 + $dig[ 1 ] * 3 + $dig[ 2 ] * 7 + $dig[ 3 ] * 9 + $dig[ 4 ] * 1 + $dig[ 5 ] * 3 + $dig[ 6 ] * 7 + $dig[ 7 ] * 9 + $dig[ 8 ] * 1 + $dig[ 9 ] * 3;
		my $lst = substr( $chk, -1, 1 );

		return $psl . ( 10 - $lst ) if $lst;
		#return $psl . ( ( 10 - $lst ) % 10 );
	}
}
#=======================================================================
1;

__END__