spacepaste

Paste details

reply | raw

  1.  
  2. use MONKEY-TYPING;
  4. augment class Duration {
  5. method in-units(*%wanted-units (Bool :$seconds, Bool :$minutes, Bool :$hours, Bool :$days, Bool :$weeks)) {
  6. my $remaining-seconds = self.Int;
  7. my %units;
  9. for <weeks days hours minutes seconds> Z=> (604800, 86400, 3600, 60, 1) {
  10. if %wanted-units{.key} {
  11. %units{.key} = $remaining-seconds div .value;
  12. $remaining-seconds -= %units{.key} * .value;
  13. }
  14. }
  16. return %units;
  17. }
  18. }
  20. my $d = Duration.new(86400.rand.Int);
  22. say ~($d.in-units(:hours, :minutes)<hours minutes> Z, <hours minutes>)
  23.  
Powered by spacepaste. Paste removal.