【Perl】Perlモジュールのメンバとして配列を持たせたらundefined value as an ARRAY referenceではまった話

追記

モジュールのメンバというかハッシュに配列入れた場合ですね。

概要

AAAModule.pm

package AAAModule;

sub new
{
    my $className = shift;

    my %a;

    # 配列を持たせる.
    $a{data_list} = ();

    return bless \%a, $className;
}

sub KorewoYobidasu
{
    my @aaa = ("aaa", "bbb");
    $a{data_list} = ¥@aaa;
}

sub GetDataList
{
    my $obj = shift;
    return @{$obj->{data_list}};
}

return @{$obj->{data_list}};

のところで

Can't use an undefined value as an ARRAY reference at

する。なんでや！わいは怒ったで！！

結論

とかやってたんだけど。

$a{data_list} = ();

では配列のリファレンスが入るのだとばかり思ってたけど、配列リファレンスで初期化する場合は

$a{data_list} = [];

だったというオチ。
このとき無名配列リファレンスなるものを初めて知ったのだった...