NAME
Random::Day - Perl class for Czech RC identification.
SYNOPSIS
use Random::Day;
my $obj = Random::Day->new(%params);
my $dt = $obj->get;
my $dt = $obj->random;
my $dt = $obj->random_day($day);
my $dt = $obj->random_day_month($day, $month);
my $dt = $obj->random_day_month_year($day, $month, $year);
my $dt = $obj->random_month($month);
my $dt = $obj->random_month_year($month, $year);
my $dt = $obj->random_year($year);
METHODS
new(%params)
-
Constructor.
day
Day. Default value is undef.
dt_from
DateTime object from. Default value is DateTime object for 1900 year.
dt_to
DateTime object to. Default value is DateTime object for 2050 year.
month
Month. Default value is undef.
year
Year. Default value is undef.
get()
-
Get random date defined by constructor parameters. Returns DateTime object for date.
random()
-
Get random date. Returns DateTime object for date.
random_day($day)
-
Get random date defined by day. Returns DateTime object for date.
random_day_month($day, $month)
-
Get random date defined by day and month. Returns DateTime object for date.
random_day_month_year($day, $month, $year)
-
Get date defined by day, month and year Returns DateTime object for date.
random_month($month)
-
Get random date defined by month. Returns DateTime object for date.
random_month_year($month, $year)
-
Get random date defined by month and year. Returns DateTime object for date.
random_year($year)
-
Get random date defined by year. Returns DateTime object for date.
ERRORS
new():
From Class::Utils::set_params():
Unknown parameter '%s'.
EXAMPLE
# Pragmas.
use strict;
use warnings;
# Modules.
use Random::Day;
# Object.
my $obj = Random::Day->new;
# Get date.
my $dt = $obj->get;
# Print out.
print $dt->ymd."\n";
# Output like:
# \d\d\d\d-\d\d-\d\d
DEPENDENCIES
Class::Utils, DateTime, DateTime::Event::Random, DateTime::Event::Recurrence.
SEE ALSO
REPOSITORY
https://github.com/tupinek/Random-Day
AUTHOR
Michal Špaček mailto:skim@cpan.org
LICENSE AND COPYRIGHT
BSD license.
VERSION
0.01