File Coverage

blib/lib/DateTime/Span/Birthdate.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	4	4	100.0
condition	3	6	50.0
subroutine	8	8	100.0
pod	0	1	0.0
total	47	51	92.1

package DateTime::Span::Birthdate;

use strict;
use base qw( DateTime::Span );
our $VERSION = '0.03';

use Carp;
use DateTime;
use DateTime::Span;

sub new {
    my $class = shift;
    my %p     = @_;

    $p{on} ||= DateTime->now;

    my @dates;
    if ($p{from} && $p{to}) {
        @dates = $class->_from_array($p{from}, $p{to}, $p{on});
    } elsif ($p{age}) {
        @dates = $class->_from_age($p{age}, $p{on});
    } else {
        croak "DateTime::Span::Birthdate->new() requires from, to or age parameter";
    }

    return $class->from_datetimes( start => $dates[0], end => $dates[1] );
}

sub _from_array {
    my($class, $from, $to, $dt) = @_;

    my $start = $dt->clone->subtract(years => $to + 1, days => -1);
    my $end   = $dt->clone->subtract(years => $from);

    return ($start, $end);
}

sub _from_age {
    my($class, $age, $dt) = @_;

    my $start = $dt->clone->subtract(years => $age + 1, days => -1);
    my $end   = $dt->clone->subtract(years => $age);

    return ($start, $end);
}

1;
__END__