and 1 contributors
Moose::Autobox->mixin_additional_role(SCALAR => 'Units::Time'); print "2 days ago was : " . 2->days->ago->as_string; print "3 weeks from now will be : " . 3->weeks->from_now->as_string; print "1 day until 1 week ago : " . 1->day->til(1->week->ago)->as_string; print "2 years since 1 week ago : " . 2->years->since(1->week->ago)->as_string;
This is a Moose::Autobox port of the perl6 vmethods example.
Stevan Little, <email@example.com>
This code was ported from the version in the Pugs examples/vmethods/ directory. See that for original author information.