1 package HTML::CalendarMonth::DateTool::TimeLocal;
3 # Interface to Time::Local
8 use vars qw(@ISA $VERSION);
10 @ISA = qw(HTML::CalendarMonth::DateTool);
16 sub dow1st_and_lastday {
17 my($self, $month, $year) = @_;
18 $month ||= $self->month;
19 $year ||= $self->year;
22 # years since 1900...hooh-rah for POSIX...
24 my $nmonth = $month + 1;
31 # Leave dow of 1st in 0-based format
32 my $dow1st = (gmtime(Time::Local::timegm(0,0,0,1,$month,$year)))[6];
33 # Last day is one day prior to 1st of month after
34 my $lastday = (gmtime(Time::Local::timegm(0,0,0,1,$nmonth,$nyear)