该死，Perl 不能祝福我的对象

Question

除了双关语，我试图在我的 Perl 类中实现一个 import 方法来实例化一个 Data 对象，该对象本质上是一个美化的 hashrefs 数组，来自适当的 hashrefs 数组。

这是我打算如何使用它的示例：

# Pull in the data
my $data = Data->import(
                         [
                           { a => 1, b => 7, c => 3},
                           { a => 7, b => 9, c => 2},
                         ]
                       );

$data->manipulate;  # Use package methods

---

我的import实现如下：

package Data;

sub initialize {
    my $class = shift;
    my $data = [];
    bless $data, $class;
    return $data;
}

sub import {

    my ( $class, $data ) = @_;

    bless $data, $class;
    return $data;
}

1;

令人惊讶的是，Perl 在编译-time报告了错误（注意BEGIN 块）：

Can't bless non-reference value at Data.pm line 51.
BEGIN failed--compilation aborted at myScript.pl line 8.

perldiag 并没有让事情变得更加清晰：

不能祝福非参考价值

(F) 只有硬引用才能得到祝福。这就是 Perl “强制执行”的方式 对象的封装。看 perlobj.

---

我什至尝试过在两个单独的步骤中初始化对象并添加数据：

sub import {                         #< Another constructor >

    my ( $class, $data ) = @_;

    my $obj = $class->initialize;
    push @$obj, @$data;

    return $obj;
}

这导致了以下编译时错误：

Can't use an undefined value as an ARRAY reference...
BEGIN failed--compilation aborted at...

---

两个问题：

1. 我所做的有什么问题？
2. 有人可以澄清perldiag 对此编译时错误的解释吗？

Answer 1

import() 给方法起一个危险的名字，因为 Perl 有时会为你调用一个名为“import”的方法。其实声明：

use Data;

真正的意思：

BEGIN {
    require Data;
    Data->import();
}

在“编译”期间发生。

因此，在您有机会使用它之前，您的 import() 方法很可能已被 Perl 作为类加载机制的一部分调用。您应该将 import() 方法重命名为其他名称（例如 import_data），这样就可以了。