#!/usr/bin/perl --

use strict;
use warnings;

use DateTime::Duration;

Main( 4, 250, 1.5e4, 4e5, 3e6,       12e6, 1.5e8 );
Main( 4, 250, 1.5e4, 4e5, 3e6 - 4e5, 12e6, 1.5e8 );
exit(0);

sub Main {
  for my $sec (@_) {
    printf "%9d seconds is about %s\n", $sec, ToPeriod( seconds => $se
+c );
  }
} ## end sub Main

sub ToPeriod {
  my $dur = ( DateTime->now - DateTime->now->subtract(@_) );
  for my $unit (qw[ years months weeks days hours minutes seconds nano
+seconds ])
  {
    my $nUnit = $dur->in_units($unit);
    return "$nUnit $unit" if $nUnit;
  }
} ## end sub ToPeriod

__END__
        4 seconds is about 4 seconds
      250 seconds is about 4 minutes
    15000 seconds is about 4 hours
   400000 seconds is about 4 days
  3000000 seconds is about 1 months
 12000000 seconds is about 4 months
150000000 seconds is about 4 years
        4 seconds is about 4 seconds
      250 seconds is about 4 minutes
    15000 seconds is about 4 hours
   400000 seconds is about 4 days
  2600000 seconds is about 4 weeks
 12000000 seconds is about 4 months
150000000 seconds is about 4 years
[download]

#!/usr/bin/perl --

use strict;
use warnings;

use DateTime::Duration;
use DateTime::Format::Human::Duration;

Main( 4, 250, 1.5e4, 4e5, 3e6,       12e6, 1.5e8 );
Main( 4, 250, 1.5e4, 4e5, 3e6 - 4e5, 12e6, 1.5e8 );
exit(0);

sub Main {
  for my $sec (@_) {
    printf "%9d seconds is %s\n", $sec, ToPeriod( seconds => $sec );
  }
} ## end sub Main

sub ToPeriod {
  return DateTime::Format::Human::Duration->new->format_duration(
    DateTime->now - DateTime->now->subtract(@_),
  );
} ## end sub ToPeriod

__END__
        4 seconds is 4 seconds
      250 seconds is 4 minutes and 10 seconds
    15000 seconds is 4 hours and 10 minutes
   400000 seconds is 4 days, 15 hours, 6 minutes, and 40 seconds
  3000000 seconds is 1 month, 3 days, 17 hours, and 20 minutes
 12000000 seconds is 4 months, 2 weeks, 1 day, 21 hours, and 20 minute
+s
150000000 seconds is 4 years, 9 months, 1 day, 2 hours, 39 minutes, an
+d 58 seconds
        4 seconds is 4 seconds
      250 seconds is 4 minutes and 10 seconds
    15000 seconds is 4 hours and 10 minutes
   400000 seconds is 4 days, 15 hours, 6 minutes, and 40 seconds
  2600000 seconds is 4 weeks, 2 days, 2 hours, 13 minutes, and 20 seco
+nds
 12000000 seconds is 4 months, 2 weeks, 1 day, 21 hours, and 20 minute
+s
150000000 seconds is 4 years, 9 months, 1 day, 2 hours, 39 minutes, an
+d 58 seconds
[download]