Duration primitives

gistfile1.txt

sub term:<1sec>()     { Duration.new(1) }
sub term:<1second>()  { Duration.new(1) }
sub term:<1min>()     { Duration.new(60) }
sub term:<1minute>()  { Duration.new(60) }
sub term:<1hour>()    { Duration.new( 60 * 60 ) }
sub term:<1day>()     { Duration.new( 24 * 60 * 60 ) }
sub term:<1week>()    { Duration.new( 7 * 24 * 60 * 60 ) }

sub postfix:<secs>($secs)       { Duration.new($secs) }
sub postfix:<seconds>($seconds) { Duration.new($seconds) }
sub postfix:<mins>($mins)       { Duration.new( 60 * $mins ) }
sub postfix:<minutes>($minutes) { Duration.new( 60 * $minutes ) }
sub postfix:<hours>($hours)     { Duration.new( 60 * 60 * $hours ) }
sub postfix:<days>($days)       { Duration.new( 24 * 60 * 60 * $days ) }
sub postfix:<weeks>($weeks)     { Duration.new( 7 * 24 * 60 * 60 * $weeks ) }