>>907
ドキュメントの読みの浅さが露呈して申し訳ないです。
ありがとうございました。

が、>>891をやるには、単純に
DateTime->from_epoch(epoch => 3601)
でいけると思ったのですが、
> 　　my $duration_dt = DateTime->from_epoch( epoch => $now + $duration - $now );
はどんな意味があるのですか？