X-Git-Url: https://git.donarmstrong.com/?p=deb_pkgs%2Flibhtml-calendarmonth-perl.git;a=blobdiff_plain;f=1.26%2Flib%2FHTML%2FCalendarMonth%2FDateTool%2FDateCalc.pm;fp=1.26%2Flib%2FHTML%2FCalendarMonth%2FDateTool%2FDateCalc.pm;h=0000000000000000000000000000000000000000;hp=c359994bddfd255b0eff8ad753b692368ceeb99e;hb=ed44be48bb467d82127717d1ae2d11890aaf329b;hpb=982e2bb08f00d800e2cd9fb65b108231719c8a65

diff --git a/1.26/lib/HTML/CalendarMonth/DateTool/DateCalc.pm b/1.26/lib/HTML/CalendarMonth/DateTool/DateCalc.pm
deleted file mode 100644
index c359994..0000000
--- a/1.26/lib/HTML/CalendarMonth/DateTool/DateCalc.pm
+++ /dev/null
@@ -1,68 +0,0 @@
-package HTML::CalendarMonth::DateTool::DateCalc;
-{
-  $HTML::CalendarMonth::DateTool::DateCalc::VERSION = '1.26';
-}
-
-# Interface to Date::Calc
-
-use strict;
-use warnings;
-use Carp;
-
-use base qw( HTML::CalendarMonth::DateTool );
-
-use Date::Calc qw(
-  Days_in_Month
-  Day_of_Week
-  Add_Delta_Days
-  Weeks_in_Year
-  Week_of_Year
-  Week_Number
-  Mktime
-);
-
-sub dow1st_and_lastday {
-  my($self, $month, $year) = @_;
-  $month ||= $self->month;
-  $year  ||= $self->year;
-  ($self->dow(1), Days_in_Month($year, $month));
-}
-
-sub day_epoch {
-  my($self, $day, $month, $year) = @_;
-  $month ||= $self->month;
-  $year  ||= $self->year;
-  Mktime($year, $month, $day, 0, 0, 0);
-}
-
-sub dow {
-  my($self, $day, $month, $year) = @_;
-  $day || croak "day required.\n";
-  $month ||= $self->month;
-  $year  ||= $self->year;
-  # Date::Calc uses 1..7 as indicies in the week, starting with Monday.
-  # Convert to 0..6, starting with Sunday.
-  Day_of_Week($year, $month, $day) % 7;
-}
-
-sub add_days {
-  my($self, $delta, $day, $month, $year) = @_;
-  defined $delta || croak "delta (in days) required.\n";
-  $day   || croak "day required.\n";
-  $month ||= $self->month;
-  $year  ||= $self->year;
-  my($y, $m, $d) = Add_Delta_Days($year, $month, $day, $delta);
-  ($d, $m, $y);
-}
-
-sub week_of_year {
-  my($self, $day, $month, $year) = @_;
-  $day || croak "day required.\n";
-  $month ||= $self->month;
-  $year  ||= $self->year;
-  my $week;
-  ($week, $year) = Week_of_Year($year, $month, $day);
-  ($year, $week);
-}
-
-1;