NAME
Business::Hours -
SYNOPSIS
use Business::Hours;
my $hours = Business::Hours->new();
# Get a Set::IntSpan of all the business hours in the next week.
# use the default business hours of 9am to 6pm localtime.
$hours->business_hours_in_timespan(Start => time(), End => time()+(86400*7));
DESCRIPTION
This module is a simple tool for calculating business hours in a time
period. Over time, additional functionality will be added to make it
easy to calculate the number of business hours between arbitrary dates.
USAGE
BUGS
Yes
SUPPORT
Send email to
[email protected]
AUTHOR
Jesse Vincent
Best Practical Solutions, LLC
[email protected]
http://www.bestpractical.com
COPYRIGHT
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included
with this module.
SEE ALSO
perl(1).
sample_function
Usage : How to use this function/method
Purpose : What it does
Returns : What it returns
Argument : What it wants to know
Throws : Exceptions and other anomolies
Comments : This is a sample subroutine header.
: It is polite to include more pod and fewer comments.
See Also :
business_hours
Set the business hours for this Business::Hours object. Takes a hash of
the form :
{ 0 => { Name => 'Sunday', Start => 'HH::MM', End => 'HH::MM'},
1 => { Name => 'Monday',
Start => 'HH::MM',
End => 'HH::MM'},
....
6 => { Name => 'Saturday',
Start => 'HH::MM',
End => 'HH::MM'},
};
Start and end times are of the form HH:MM. Valid times are
from 00:00 to 23:59. If your hours are from 9am to 6pm, use
Start => '9:00', End => '18:00'. A given day MUST have a start
and end time OR may declare both Start and End to be undef, if
there are no valid hours on that day.
for_timespan
Takes a paramhash with the following parameters
Start => The start of the period in question in seconds since the epoch
End => The end of the period in question in seconds since the epoch
Returns a Set::IntSpan of business hours for this period of time.
