NAME
Random::Day - Class for random day generation.
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'.
random_day():
Day cannot be a zero.
Day isn't number.
random_day_month():
Cannot create DateTime object.
Day cannot be a zero.
Day isn't number.
random_day_month_year():
Cannot create DateTime object.
Error: %s
Day cannot be a zero.
Day isn't number.
random_month():
Cannot create DateTime object.
Error: %s
random_month_year():
Cannot create DateTime object.
Error: %s
EXAMPLE
use strict;
use warnings;
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, English, Error::Pure.
SEE ALSO
Data::Random
Perl module to generate random data
REPOSITORY
<https://github.com/tupinek/Random-Day>
AUTHOR
Michal Josef Špaček <mailto:skim@cpan.org>
<http://skim.cz>
LICENSE AND COPYRIGHT
© Michal Josef Špaček 2013-2017
BSD 2-Clause License
VERSION
0.07