initial port to Perl6 of Time::Duration