use Test::MockTime; sub fixed_time { my ($time, $func) = @_; Test::MockTime::set_fixed_time($time, "%Y-%m-%d %H:%M:%S"); $func->(); Test::MockTime::restore_time(); } fixed_time '2012-01-01 00:00:00' => sub { #something }; 時刻のテストを書…