New upstream release

[deb_pkgs/libhtml-calendarmonth-perl.git] / lib / HTML / CalendarMonth / DateTool / Cal.pm

diff --git a/lib/HTML/CalendarMonth/DateTool/Cal.pm b/lib/HTML/CalendarMonth/DateTool/Cal.pm
index 6542a42017a0b218982498275a8a1ea25436e287..2d63e006f77fadb7b886aaceb415440a5e00396e 100644 (file)
--- a/lib/HTML/CalendarMonth/DateTool/Cal.pm
+++ b/lib/HTML/CalendarMonth/DateTool/Cal.pm
@@ -1,23 +1,21 @@
 package HTML::CalendarMonth::DateTool::Cal;
+BEGIN {
+  $HTML::CalendarMonth::DateTool::Cal::VERSION = '1.25';
+}
 
 # Interface to unix 'cal' command
 
 use strict;
+use warnings;
 use Carp;
 
-use vars qw(@ISA $VERSION);
-
-@ISA = qw(HTML::CalendarMonth::DateTool);
-
-$VERSION = '0.01';
-
-use Time::Local;
+use base qw( HTML::CalendarMonth::DateTool );
 
 sub dow1st_and_lastday {
   my($self, $month, $year) = @_;
   $month ||= $self->month;
   $year  ||= $self->year;
-  my $cmd = $self->cal_cmd or croak "cal command not found\n";
+  my $cmd = $self->_cal_cmd or croak "cal command not found\n";
 
   my @cal = grep(!/^\s*$/,`$cmd $month $year`);
   chomp @cal;
@@ -27,11 +25,11 @@ sub dow1st_and_lastday {
   # With dow1st and lastday, one builds a calendar sequentially.
   # Historically, in particular Sep 1752, days have been skipped. Here's
   # the chance to catch that.
-  $self->skips(undef);
+  $self->_skips(undef);
   if ($month == 9 && $year == 1752) {
     my %skips;
     grep(++$skips{$_}, 3 .. 13);
-    $self->skips(\%skips);
+    $self->_skips(\%skips);
   }
   ($dow1st, $lastday);
 }