如何在 Perl 中创建只读 DateTime 和 DateTime::Duration

Question

我有一个 Perl 脚本，尝试将一些已配置的 DateTime 和 DateTime::Duration 实例设置为 Readonly 常量。但当我尝试对这些对象进行数学计算时，如果它们是只读的，我会看到奇怪的行为。这是一个最小的示例：

#!/usr/bin/perl -w

use strict;
use warnings;

use DateTime;
use Readonly;

Readonly my $X => DateTime->now;
my $x = DateTime->now;

Readonly my $Y => DateTime::Duration->new( days => 3 );
my $y = DateTime::Duration->new( days => 3 );

my $a = $X - $Y;
my $b = $x - $y;

print "$a\n";
print "$b\n";

在我的系统（OSX 上的 Perl 5.10.0）上显示：

$ ./datetime_test.pl 
Argument "2011-07-12T20:36:08" isn't numeric in subtraction (-) at ./datetime_test.pl line 15.
-4305941629
2011-07-09T20:36:08

所以它看起来像制作 DateTime 和 DateTime::Duration Readonly 导致它们无法正常工作。这是一个错误吗？或者我使用Readonly错误？我还尝试过 Readonly::Scalar 和 Readonly::Scalar1 ，两者的行为方式相同。

Answer 1

问题在于它们是对象（引用），而不是普通标量。您需要只读引用中包含的值，而不是引用本身；但事实证明这很棘手。像这样的东西似乎有效：

use Readonly;
use DateTime;

# you can't just say "Readonly %$dt"; here at least, it dies on blessed refs
sub makeRO {
  my $dt = shift;
  while (my ($k, $v) = each %$dt) {
    Readonly $dt->{$k} => $v;
  }
}

my $x = DateTime::Duration->new(days => 3);
makeRO($x);
my $y = DateTime::Duration->new(days => 3);

my $a = $x - $y;
# print "$a\n"; # this isn't overloaded; you'll get "DateTime::Duration=HASH(...)"
print $a->days, "\n";