perl - Perl OOP の祝福

Question

私は Perl を初めて使用し、このチュートリアルhttp://qntm.org/files/perl/perl.htmlを進めてきました。

とにかく、行列を取り込んでさまざまな基本操作 (つまり、ガウス消去法、rref、back sub、deterimants など) を実行するパッケージの作成に取り組んでいます。コンストラクターで参照のリストを取得していますが、後でアクセスできるようにそれらを祝福するのに問題があります。これまでの私のコード:

main.pl:

use strict;
use warnings;
use Matrix;

my @list = ([1,1,1],[2,2,2]);
my $matrix = Matrix->new(@list);

$matrix->test();

マトリックス.pm:

package Matrix;
    sub new(){
        my $class = shift;
        my $self = [];

        my @params = @_;
        $self = \@params;

        print scalar @{$self->[1]}; #just testing some output...(outputs 3 as expected)

        bless $self,$class;

        return $self;
    }

    sub test(){
        print @{$self->[1]}; #does not output anything
    }

1;

問題は、 $self が参照している参照が祝福されていないことだと思いますが、これを行う方法がわかりません。どんな助けでも大歓迎です。

ありがとう