view release on metacpan or  search on metacpan

t/array.t  view on Meta::CPAN

use Test::More;

use lib 't/lib';
use MongooseT;

# from RT Bug #81725
package Bar;
use Moose;
with 'Mongoose::Document';

has y => ( is => 'ro', isa => 'HashRef[ArrayRef[Foo]]' );

package Foo;
use Moose;
with 'Mongoose::EmbeddedDocument';

has val => (isa=>'Int', is=>'ro' );

package main;

ok my $x = Bar->new( y => { xx => [ Foo->new( val => 1234 ) ] } ), 'Create a doc with deep embed attribute';