|
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 |
- |
|
|