File Coverage

blib/lib/autobox/DateTime/Duration.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	4	50.0
condition			n/a
subroutine	10	10	100.0
pod	0	2	0.0
total	38	42	90.4

package autobox::DateTime::Duration;

use strict;
use 5.8.1;
our $VERSION = '0.02';

use autobox;
use DateTime;
use DateTime::Duration;

for my $accessor (qw( day hour minute month second week year )) {
    no strict 'refs';
    my $plural = $accessor . "s";
    *{"SCALAR::$accessor"} = *{"SCALAR::$plural"} = sub {
        DateTime::Duration->new($plural => $_[0]);
    };
}

sub SCALAR::fortnight {
    DateTime::Duration->new(weeks => 2 * $_[0]);
}

*SCALAR::fortnights = \&SCALAR::fortnight;

sub DateTime::Duration::ago {
    my $duration = shift;
    my $dt = $_[0] ? $_[0]->clone : DateTime->now;
    $dt->subtract_duration($duration);
}

*DateTime::Duration::until = \&DateTime::Duration::ago;

sub DateTime::Duration::from_now {
    my $duration = shift;
    my $dt = $_[0] ? $_[0]->clone : DateTime->now;
    $dt->add_duration($duration);
}

*DateTime::Duration::since = \&DateTime::Duration::from_now;

1;
__END__