14 sub minutes { $_[0] * 60 }
15 sub hours { $_[0] * 60->minutes }
16 sub days { $_[0] * 24->hours }
17 sub weeks { $_[0] * 7->days }
18 sub years { $_[0] * 365->days }
19 sub centuries { $_[0] * 10->years }
22 my ($self, $time) = @_;
28 my ($self, $time) = @_;
43 *century = \¢uries;
49 sub as_string { scalar localtime $_[0] }
53 Moose::Autobox->mixin_additional_role(SCALAR => 'Units::Time');
57 print "2 days ago was : " . 2->days->ago->as_string;
58 print "3 weeks from now will be : " . 3->weeks->from_now->as_string;
59 my $one_week_ago = 1->week->ago;
60 print "1 day until 1 week ago : " . 1->day->til($one_week_ago)->as_string;
61 print "2 years since 1 week ago : " . 2->years->since($one_week_ago)->as_string;