我想将一个数组定义为一个类的属性,并在实例化类时用一些数据填充它.
我认为可以使用$self-> attribute-> set($id,$value)方法来设置给定索引上的元素.至少这是我从Moose documentation中理解的.
但是,当我尝试
use Data::Dumper qw( Dumper );
use Moose;
has cells => (
is => 'rw',traits => ['Array'],isa => 'ArrayRef',default => sub { [] },);
my $app = __PACKAGE__->new();
$app->cells->set($_,$_) for 0..3;
print(Dumper($app->cells));
我明白了
Can't call method "set" on unblessed reference
我该如何设置工作？
解决方法
use Data::Dumper qw( Dumper );
use Moose;
has cells => (
is => 'rw',handles => { # <---
set_cell => 'set',# <---
},# <---
);
my $app = __PACKAGE__->new();
$app->set_cell($_,$_) for 0..3; # <---
print(Dumper($app->cells));
尽管在评论中声称相反,但它在BUILD中也能正常工作.
use Data::Dumper qw( Dumper );
use Moose;
has cells => (
is => 'rw',handles => {
set_cell => 'set',},);
sub BUILD {
my ($self) = @_;
$self->set_cell($_,$_) for 0..3;
}
my $app = __PACKAGE__->new();
print(Dumper($app->cells));