Perl Test::MockTime + Time::localtime

Question

我正在尝试用Test::MockTime模块替换当前时间。它工作得很好：

use Test::MockTime qw(:all);
use Time::Local;
my $sec  = 0;
my $min  = 0;
my $hour = 14;
my $mday = 1; #1-31
my $mon  = 1; #1-12
my $year = 2013; #1970-...
set_fixed_time(timelocal($sec,$min,$hour,$mday,$mon-1,$year-1900));
print join "\n", localtime;

但是，当我使用Time::localtime时，什么也没有发生：

use Time::localtime;
use Time::Local;
use Test::MockTime qw(:all);

my ($sec,$min,$hour,$mday,$mon,$year)=(0,0,14,1,1,2013);

set_fixed_time(timelocal($sec,$min,$hour,$mday,$mon-1,$year-1900));

my $t=localtime();
my $xmon=$t->mon;
my $xyear=$t->year;
my $xday=$t->mday;
my $xmon_now=$xmon+1;
my $xyear_now=$xyear+1900;

print "$xmon_now $xyear_now\n";

输出将是"12 2012“，当使用Time::localtime时，我如何在测试中更改时间？感谢并为我的英语道歉

更新：

use Time::localtime;
use Test::MockTime qw(:all);

不起作用

use Test::MockTime qw(:all);
use Time::localtime;

运行得很好) perl魔术

Answer 1

Test::MockTime覆盖localtime，但Time::localtime使用CORE::localtime (localtime的未覆盖版本)。你必须重写Time：：localtime的localtime。