/ 
Person-ID-CZ-RC-Generator-0.06
River stage zero No dependents
/ Person::ID::CZ::RC::Generator

NAME

Person::ID::CZ::RC::Generator - Perl class for Czech RC identification generation.

SYNOPSIS

use Person::ID::CZ::RC::Generator;

my $obj = Person::ID::CZ::RC::Generator->new(%params);
my $rc = $obj->rc;

METHODS

new

my $obj = Person::ID::CZ::RC::Generator->new(%params);

Constructor.

  • alternate

    Alternate flag.

    Default value is undef.

  • day

    Day.

    Default value is undef.

  • month

    Month.

    Default value is undef.

  • rc_sep

    RC number separator.

    Possible values are:

    • empty string

    • /

    Default value is empty string.

  • serial

    Serial number from 1 to 999.

    Default value is undef.

  • sex

    Sex.

    Possible values are:

    • male

    • female

    Default value is undef.

  • year

    Year.

    Possible values are between 1946 and 2054.

    Default value is undef.

Returns instance of object.

rc

my $rc = $obj->rc;

Get rc identification.

Returns string.

ERRORS

new():
        Parameter 'rc_sep' has bad value.
        Parameter 'serial' is greater than 999.
        Parameter 'serial' is lesser than 1.
        Parameter 'serial' isn't number.
        Parameter 'sex' has bad value.
        Parameter 'year' is greater than 2054.
        Parameter 'year' is lesser than 1855.
        From Class::Utils::set_params():
                Unknown parameter '%s'.

EXAMPLE1

use strict;
use warnings;

use Person::ID::CZ::RC::Generator;

# Object.
my $obj = Person::ID::CZ::RC::Generator->new(
        'day' => 1,
        'month' => 5,
        'rc_sep' => '/',
        'serial' => 133,
        'sex' => 'male',
        'year' => 1984,
);

# Print out.
print "Personal number: ".$obj->rc."\n";

# Output:
# Personal number: 840501/1330

EXAMPLE2

use strict;
use warnings;

use Person::ID::CZ::RC::Generator;

# Object.
my $obj = Person::ID::CZ::RC::Generator->new(
        'day' => 1,
        'month' => 5,
        'rc_sep' => '/',
        'serial' => 133,
        'sex' => 'male',
        'year' => 1952,
);

# Print out.
print "Personal number: ".$obj->rc."\n";

# Output:
# Personal number: 520501/133

EXAMPLE3

use strict;
use warnings;

use Person::ID::CZ::RC::Generator;

# Object.
my $obj = Person::ID::CZ::RC::Generator->new(
        'rc_sep' => '/',
);

# Print out.
print "Personal number: ".$obj->rc."\n";

# Output like:
# Personal number: qr{\d\d\d\d\d\d\/\d\d\d\d?}

DEPENDENCIES

Class::Utils, DateTime, English, Error::Pure, List::Util, Random::Day, Readonly.

SEE ALSO

Business::DK::CPR

Danish CPR (SSN) number generator/validator

No::PersonNr

Check Norwegian Social security numbers

Person::ID::CZ::RC

Perl class for Czech RC identification.

Se::PersonNr

Module for validating and generating a Swedish personnummer.

REPOSITORY

https://github.com/michal-josef-spacek/Person::ID::CZ::RC::Generator

AUTHOR

Michal Josef Špaček mailto:skim@cpan.org

http://skim.cz

LICENSE AND COPYRIGHT

© Michal Josef Špaček 2013-2023

BSD 2-Clause License

VERSION

0.06