use strict;
use warnings;
use Data::Dump qw/pp dd/;
use DateTime;
use DateTime::Duration;

my $dur = DateTime::Duration->new(
    hours       => 0,
    minutes     => 0,
    seconds     => -1,
    nanoseconds => "000000000",
);

warn "dur:\t", pp
    $dur->in_units(
        qw/hours minutes seconds nanoseconds/
    );

exit;