File Coverage

Simple.pm

Criterion	Covered	Total	%
statement	21	31	67.7
branch	0	2	0.0
condition			n/a
subroutine	7	10	70.0
pod	3	3	100.0
total	31	46	67.3

package Template::Plugin::Calendar::Simple;

use strict;
use warnings;

use Calendar::Simple;

use Template::Plugin;
use Template::Iterator;
use Template::Exception;
use base qw( Template::Plugin );

our $VERSION = '0.02';

sub new {
	my ($class, $context, @arg) = @_;
	my @cal = Calendar::Simple::calendar(@arg);
	return bless {
		_CONTEXT => $context,
		rows     => Template::Iterator->new([@cal]),
		days     => [qw(Sun Mon Tue Wed Thu Fri Sat)],
	}, $class;
}

sub rows {
	my ($self) = @_;
	return $self->{rows};
}

sub days {
	my ($self, $mon) = @_;
	my @day = @{$self->{days}};
	push @day, shift @day if $mon;
	return [@day];
}

1;
__END__