Что-то я уже совсем, наверное, туплю.
package foo; {
use Moo;
has '_data' => (
is => 'ro',
required => 1,
default => sub { [] }
};
sub bar {
my $self = shift;
my $buffer = somethingAwesomeAsArrayRef();
push @{$self->_data}, $buffer; # !!!
};
};
my $test = Foo->new;
$test->bar;
На указанную строку (!!!) ругается:
Not an ARRAY reference at <...> line <...>
Как добавить в конец массива, если массив - атрибут класса Moo?
