https://github.com/michal-josef-spacek/person-id-cz-rc-generator
Perl class for Czech RC identification generation.
https://github.com/michal-josef-spacek/person-id-cz-rc-generator
Last synced: 2 months ago
JSON representation
Perl class for Czech RC identification generation.
- Host: GitHub
- URL: https://github.com/michal-josef-spacek/person-id-cz-rc-generator
- Owner: michal-josef-spacek
- License: bsd-2-clause
- Created: 2013-09-19T11:07:09.000Z (over 11 years ago)
- Default Branch: master
- Last Pushed: 2023-12-03T16:34:00.000Z (over 1 year ago)
- Last Synced: 2025-01-01T04:46:55.091Z (4 months ago)
- Language: Perl
- Size: 74.2 KB
- Stars: 1
- Watchers: 2
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README
- Changelog: Changes
- License: LICENSE
Awesome Lists containing this project
README
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/1330EXAMPLE2
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/133EXAMPLE3
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/validatorNo::PersonNr
Check Norwegian Social security numbersPerson::ID::CZ::RC
Perl class for Czech RC identification.Se::PersonNr
Module for validating and generating a Swedish personnummer.REPOSITORY
AUTHOR
Michal Josef Špaček
LICENSE AND COPYRIGHT
© Michal Josef Špaček 2013-2023BSD 2-Clause License
VERSION
0.07