File Coverage

blib/lib/Date/Simple/Month.pm

Criterion	Covered	Total	%
statement	26	45	57.7
branch	7	16	43.7
condition	0	2	0.0
subroutine	8	13	61.5
pod	6	6	100.0
total	47	82	57.3

package Date::Simple::Month;

use strict;
use base qw (Date::Range);
use vars qw($VERSION);
$VERSION = '0.02';

use Date::Simple;

sub new {
	my $class = shift;
	my $ds = eval{ _ds(@_) } or return;
	my $first = $ds - $ds->day + 1;
	my $last  = $first + Date::Simple::days_in_month($first->year, $first->month) -1;
	return $class->SUPER::new($first, $last);
}

sub _ds{
	if ( @_ == 1 ) {
		if (UNIVERSAL::isa($_[0], 'Date::Simple')) {
			return Date::Simple->new( $_[0] );
		} else {
			return Date::Simple->new(Date::Simple->new->year, $_[0], 1);
		}
	} elsif ( @_ == 2 ) {
		return Date::Simple->new($_[0], $_[1], 1);
	}
	return Date::Simple->new;
}

sub year  {shift->start->year}
sub month {shift->start->month}

sub prev_month {
	my $self = shift;
	$self->new( $self->start - 1 );
}

sub next_month {
	my $self = shift;
	$self->new( $self->end + 1 );
}

sub wraparound_dates {
	my $self = shift;
	my $start_day = shift || 0;

	my $nof_preceed = $self->_nof_preceed($start_day);
	my @preceed = $nof_preceed ? ($self->prev_month->dates)[ 0 - $nof_preceed .. -1] : ();

	my $nof_follow = $self->_nof_follow($start_day);
	my @follow = $nof_follow ? ($self->next_month->dates)[0 .. $nof_follow -1] : ();
	return @preceed , ($self->dates), @follow;
}

sub _nof_preceed {
	my ($self, $start_day) = @_;
	my $nof_preceed = $self->start->day_of_week - $start_day;
	$nof_preceed += 7 if $nof_preceed < 0;
	return $nof_preceed;
}

sub _nof_follow{
	my ($self, $start_day) = @_;
	my $nof_follow = $start_day + 6 - $self->end->day_of_week;
	$nof_follow -= 7 if $nof_follow > 6;
	return $nof_follow;
}

1;
__END__