perl - 本地安装 Moose 出错

Question

我能够在我拥有 sudo 功能的本地机器上运行以下代码”

#!/usr/bin/env perl

package Cat
{
    use Moose;
    has 'name', is => 'ro', isa => 'Str';

}

my $test_obj = Cat->new(name => "kitty");

print $test_obj->name()."\n";

结果 ：

$perl Cat.pl
kitty

但是当我在没有 sudo 的其他机器上运行完全相同的代码时，我收到以下错误：

syntax error at Cat.pl line 5, near "{
    "
Execution of Cat.pl aborted due to compilation errors.

为什么会这样？

我在所有三台机器上使用 cpanm 安装了模块，一台使用 sudo，两台没有 sudo（我在本地安装它们）。perl 的版本是：

machine 1(worked, has sudo) : (v5.14.2) built for cygwin-thread-multi-64int
machine 2(did not work, no sudo previlage) : perl, v5.10.1 (*) built for x86_64-linux-thread-multi
machine 3(did not work, no sudo previlage) : v5.10.0 built for x86_64-linux-thread-multi

所以它似乎与共享库或其他东西有关，但我无法弄清楚为什么它不能在两台机器上运行。这是一个已知的问题？

Answer 1

package { ... }您尝试使用的语法已添加到 perl 5.14.0（2011 年 5 月发布）中。

如果您想在 perl 5.12 和更早版本上运行，请将您的代码更改为如下所示：

{
    package Cat;
    use Moose;
    has 'name' => (...);
    # etc.
}

my $test_obj = Cat->new(...);
# etc.

package声明不会泄漏到大括号之外，因此底部的代码将在 package 中运行，main或者my变量our也将保留在块内。