Lines 193-202
sub hours_between {
Link Here
|
193 |
sub _mockinit { |
193 |
sub _mockinit { |
194 |
my $self = shift; |
194 |
my $self = shift; |
195 |
$self->{weekly_closed_days} = [ 1, 0, 0, 0, 0, 0, 0 ]; # Sunday only |
195 |
$self->{weekly_closed_days} = [ 1, 0, 0, 0, 0, 0, 0 ]; # Sunday only |
196 |
$self->{day_month_closed_days} = { 6 => { 16 => 1, } }; |
196 |
$self->{day_month_closed_days} = { 16 => { 6 => 1, } }; |
197 |
my $dates = []; |
197 |
my $dates = []; |
198 |
$self->{special_holidays} = |
|
|
199 |
DateTime::Set->from_datetimes( dates => $dates ); |
200 |
my $special = DateTime->new( |
198 |
my $special = DateTime->new( |
201 |
year => 2011, |
199 |
year => 2011, |
202 |
month => 6, |
200 |
month => 6, |
Lines 204-209
sub _mockinit {
Link Here
|
204 |
time_zone => 'Europe/London', |
202 |
time_zone => 'Europe/London', |
205 |
); |
203 |
); |
206 |
push @{$dates}, $special; |
204 |
push @{$dates}, $special; |
|
|
205 |
$self->{special_holidays} = |
206 |
DateTime::Set->from_datetimes( dates => $dates ); |
207 |
$self->{days_mode} = 'Calendar'; |
207 |
$self->{days_mode} = 'Calendar'; |
208 |
return; |
208 |
return; |
209 |
} |
209 |
} |
210 |
- |
|
|