view release on metacpan or  search on metacpan

bin/gitc-history  view on Meta::CPAN

######################### helper subroutines ######################

use Date::Parse;

sub pretty_duration {
    my $from = str2time(shift);
    my $to = str2time(shift) || time;
    my $diff = $to - $from;
    my @units = (
        y => 60*60*24*7*4*12,
        M => 60*60*24*7*4,
        w => 60*60*24*7,
        d => 60*60*24,
        h => 60*60,
        m => 60,
        s => 1,
    );
    while ( my ($unit,$seconds) = splice @units, 0, 2 ) {
        if ( $diff >= $seconds ) {
            $diff = int $diff/$seconds;
            return "$diff$unit";
        }
    }