# Conversion to day unit.
my ( $day, $min, $sec ) = map { $duration->in_units( $_ ) } qw[ days minutes seconds ];
$day_duration = $day + ( $min/60 + $sec/3600 ) /24;