如何在Perl中调用localtime()的单元测试函数？

cpan install Test::MockTime

#!/usr/bin/perl

use strict;
use warnings;
use Test::More;
use Test::MockTime;

# 定义一个函数，该函数使用localtime()函数
sub get_current_time {
    my @localtime = localtime;
    return sprintf("%04d-%02d-%02d %02d:%02d:%02d",
                   $localtime[5]+1900, $localtime[4]+1, $localtime[3],
                   $localtime[2], $localtime[1], $localtime[0]);
}

# 模拟当前时间为2022年1月1日 00:00:00
my $mock_time = '1640995200'; # 2022年1月1日 00:00:00的Unix时间戳
mock_time_set($mock_time);

# 测试get_current_time()函数
my $expected_time = '2022-01-01 00:00:00';
is(get_current_time(), $expected_time, 'get_current_time() should return the mocked time');

done_testing();

prove localtime_test.pl

1..1
ok 1 - get_current_time() should return the mocked time
1