CPAN::Groonga

uctor, $player_mapper->constructor;

isnt $inherit_mapper->attributes, $player_mapper->attributes;
isnt $inherit_mapper->accessors, $player_mapper->accessors;
isnt $inherit_mapper->constructor, $playe

    isnt refaddr($p), refaddr($p2);
    ok $p->children;
    my $loop_cnt;
    for my $c ( @{$p->children}) {
        $loop_cnt++;
        is $c->parent_id, 1;
        ok $c->parent;
        isnt ref

ver';
        is_deeply $sql->$meth, $clone->$meth;
        if( ref $sql->{$meth} ) {
            isnt $sql->{$meth}, $clone->{$meth};
        }
    }
};


__END__
=== SELECT1
--- input
DBIx::ObjectMa

>cds->[0];
    ok my $check_tracks = $check_cd->tracks;

    for my $i ( 0 .. $#tracks) {
        isnt $tracks[$i], $check_tracks->[$i];
        is $tracks[$i]->title, $check_tracks->[$i]->title;