use strict;
use Mongoose;
Mongoose->db('test');

package Cat;
use Mongoose::Class;
with 'Mongoose::Document';
has_many mice  => 'Mouse';
has_one 'name' => 'Str';

package Mouse;
use Mongoose::Class;
with 'Mongoose::Document';

package main;

Cat->collection->drop;
Mouse->collection->drop;

my $cat = Cat->new( name=>'Tom');


for( 1 .. 10 ){
    my $mouse = Mouse->new();
    $cat->mice->add( $mouse );
}

$cat->save;

#is( Cat->find_one({_id => $cat->_id})->mice->find->count, 10, "added 10 mice" );

#Mouse->collection->drop;
my $k=0;
Mouse->find->each(sub{ $_[0]->delete; $k++ ; return undef if $k>5 });

#is( Cat->find_one({_id => $cat->_id})->mice->find->count, 0, "deleted 10 mice" );

#Cat->find->each(sub{ $_[0]->->save } );
#Cat->find_one->mice->fix;
Cat->find_one->fix_integrity('mice');

my $cur = Cat->collection->find;
use YAML;
while ( my $r = $cur->next ) {
	print Dump $r;
}
#done_testing();