The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Asmens::Kodas - Lithuanian personal (passport) number checking

SYNOPSIS

     use Asmens::Kodas qw/tikras/;
     print tikras("38208080214") ? "tinka" : "netinka";

DESCRIPTION

This module provides a subroutine that runs a few checks which ensure that Lithuanian personal number (asmens kodas) has a correct checksum and has sane fields.

tikras

This subroutine does the actual checking. It returns 1 if the argument can possibly be a correct Lithuanian personal number. Otherwise it returns 0.

AUTHOR

Petras Kudaras <moxliukas@delfi.lt>