File Coverage

blib/lib/OurCal/Span.pm

Criterion	Covered	Total	%
statement	9	33	27.2
branch	0	4	0.0
condition			n/a
subroutine	3	8	37.5
pod	3	3	100.0
total	15	48	31.2

package OurCal::Span;

use strict;
use Carp qw(confess);
use DateTime;


=head1 NAME

OurCal::Span - a base class for OurCal spans of time

=head1 METHODS

=head2 new

Must have a date param

=cut

sub new {
    my ($class, %what)  = @_;
    my $self = bless \%what, $class;
    confess "No date set" unless defined $self->date;
    my @names = qw(year month day);
    my @bits  = split /-/, $self->date;
    my %opts;
    foreach my $name (@names) {
        my $val = shift @bits;
        last unless defined $val;
        $opts{$name} = $val;
    }
    $self->{_dt} = DateTime->new( %opts );
    return $self;
}

=head2 date

The date for this span

=cut

sub date {
    my $self = shift;
    return $self->{date};
}

=head2 calendar

Return the OurCal calendar object this is attached to

=cut

sub calendar {
    my $self = shift;
    return $self->{calendar};
}


sub _span {
    my $self  = shift;
    my $class = shift;
    my $date  = shift;
    # TODO this needs to be abstracted
    my %what = ( date => $date, calendar => $self->calendar );
    return $class->new(%what);
}

sub _shift {
    my $self = shift;
    my $date = shift;
    my $prev = ref($self)->new( date => $date, calendar => $self->calendar );
}



1;