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>