File Coverage

blib/lib/NIP/Generator.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	1	2	50.0
total	31	32	96.8

package NIP::Generator;

#-----------------------------------------------------------------------
use vars qw( $VERSION );
$VERSION = 1.1;
#-----------------------------------------------------------------------
use warnings;
use strict;
use base		qw( Exporter::Tiny	);
#=======================================================================
our @EXPORT_OK = qw( nip );
#=======================================================================
sub new {
	return bless { }, $_[ 0 ];
}
#=======================================================================
sub nip {
    my @vec = qw( 6 5 7 2 3 4 5 6 7 );

    while( 1 ){
        my @val = map { int( rand 10 ) } @vec;
        my $sum = 0;
		$sum += $_ for map { $vec[ $_ ] * $val[ $_ ] } 0 .. $#vec;
        $sum %= 11;
        return join( q[], @val, $sum ) if $sum != 10;
    }
}
#=======================================================================
1;

__END__