くそ、私のオブジェクトを祝福することはできません

Question

私はPerlクラスのimportメソッドを実装して、Dataオブジェクトをインスタンス化しようとしています。これは本質的にhashrefの適切な配列。ここで

は、私はそれを使用する予定の方法の例です：

# 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はでエラーを報告していることですコンパイル - 時間（BEGINブロックに注意してください）：

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

perldiagで何が起こっているかに多くの明快さを追加しませんでした：

Can't bless non-reference value

(F) Only hard references may be blessed. This is how Perl "enforces" encapsulation of objects. See perlobj .

---

私も、オブジェクトを初期化し、2つの段階に分けてデータを追加してみました：

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）に変更する必要があります。