NAME

BusinessHours - An object that calculates business days and hours

SYNOPSIS

  use BusinessHours;
  use DateTime;

  my $datetime1=DateTime->new(year=>2007,month=>10,day=>15);
  my $datetime2 = DateTime->now;

  my $testing = BusinessHours->new(datetime1=>$datetime1,
                                  datetime2=>$datetime2,
                                  worktiming=>[9,18], # 9 am to 6 om
                                  weekends=>[6,7], #saturday , sunday
                                  holidayfile=>'holidaylist' #holidaylist is a text file 
                                                             #with each date in a new line
                                                             #in the format dd-mm-yyyy  
                                 );

  print $testing->getdays."\n"; # the total business days 

  print $testing->gethours; # the total business hours

DESCRIPTION

BusinessHours a class for caculating the business hours between two DateTime objects.It can be useful in situations like escalation where an action has to happen after a certain number of business hours.

USAGE

Create an instance of the class with the two required datetime objects. and use the methods to get the business hours or days.

Constructors

• new( ... )

  This class method accepts the following parameters in the hash format.

              datetime1    =>  Starting Date 
              datetime2    =>  Ending Date
              worktimings  =>  A list reference with two values.Starting and ending hour of the day.
                               Defaults to [9,18] 
              weekends     =>  A list reference with values of the days that must be considered 
                               as non-working in a week.Defaults to [6,7] - Saturday , Sunday.
              holidayfile  =>  The name of a file from which predefined holidays can be excluded
                               from business days /hours calculation. Defaults to no file.

Methods

This class has two methods.

• getdays

  Returns the number of business days

• gethours

  Returns the number of business hours.

AUTHOR

Antano Solar John<solar345@gmail.com>

COPYRIGHT

Copyright (c) 2007 Antano Solar John. All rights reserved. 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.