perlquestion bgu <p>Hi there, </p> <p>I am new to Moose and I could use a little help on how to fix this. </p> <p>FYI, I completely agree with the error, just need suggestions on how to fix the code.</p> <p>The code models somebody's library, with books that the owner has read and books that he has not. At the beginning, all books are meant to be 'unread', and as he starts reading, he moves them into the 'read' pile. </p> LibraryTest.pm <c>package LibraryTest; use Moose; use Book; has 'unread_books' => (isa => 'ArrayRef[Book]', is =>'rw' ); has 'read_books' => (isa => 'ArrayRef[Book]', is =>'rw' ); </c> <p> Main.pl - already have a ref to a list of books saved in $allbooks. Please note that the second attribute, read_books, is not initialized </p> <c>my $Libr = LibraryTest->new(unread_books => $allbooks); </c> <p>....he reads the first book and wants to move it from the unread pile to the read pile...</p> <c>$Libr->MoveBook($Libr->PopBook);</c> <p>This is where disaster strucks .. the second attribute of the object is undef... how do I initialize it with a reference to an empty array of Book?</p> <p>Or maybe it's better to modify the constructor somehow so that for when the second attribute is not explicitly given ?</p> Many thanks for any suggestion :)