sub _calc_duration { my ( $self, $stop ) = @_; $stop ||= $self->stop; my $delta = $stop->subtract_datetime($self->start); $self->seconds($dtf_sec->format_duration($delta)); $self->duration($dtf_dur->format_duration($delta)); }