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 bug-business-hours@rt.cpan.org AUTHOR Jesse Vincent Best Practical Solutions, LLC jesse@cpan.org 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.