NAME

Business::PL::PESEL - Validate Polish Universal Electronic System for Registration of the Population ID

VERSION

version 0.09

SYNOPSIS

    use Business::ID::PESEL;
    my $pesel = Business::PL::PESEL->new(-pesel => 49040501580);
    print $pesel->birth_date->month;

DESCRIPTION

This module can be used to validate and analyze PESEL number. All methods (except ->is_valid) die on failure.

METHODS

new(-pesel=>$pesel_number)

Create a new Business::PL::PESEL object.

is_valid()

Check whether supplied PESEL number is valid. Returns 1 on success and 0 on failure.

is_male()

Check if supplied PESEL numbers belongs to male person. Returns 1 if true, 0 if false.

is_female()

Check if supplied PESEL numbers belongs to female person. Returns 1 if true, 0 if false.

birth_date()

Returns birth date (Time::Piece object) of person identified by supplied PESEL ID.

BUGS

None known.

GIT REPOSITORY

    git://git.savannah.nongnu.org/perl-pesel.git
    Mirror: git://github.com/xenu/business-pl-pesel.git

AUTHOR

  Tomasz Konojacki <xenu@poczta.onet.pl>

COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by Tomasz Konojacki.

This is free software; you can redistribute it and/or modify it under the terms of MIT license.