about summary refs log blame commit diff stats
path: root/lib/Taurus/Seconds.rakumod
blob: 647f96de7314c5776e49bffe1bfd933d1949cc38 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11










                                                                                              
unit module Taurus::Seconds;

sub seconds-to-str(UInt $seconds --> Str) is export {
    given $seconds {
        when * < 60 { $seconds ~ "s" }
        when * < 3600 { "%2dm %2ds".sprintf($_ div 60, $_ % 60) }
        when * < 86400 { "%2dh %2dm %2ds".sprintf($_ div 3600, ($_ % 3600) div 60, $_ % 60) }
        default { "%dd %2dh %2dm %2ds"
                  .sprintf($_ div 86400, ($_ % 86400) div 3600, ($_ % 3600) div 60, $_ % 60) }
    }
}