view release on metacpan or  search on metacpan

t/30_aus_membership.t  view on Meta::CPAN

        sub {
            my $self = shift;
            $self->{_groups}->[0]->refresh;
            is_deeply(
                $self->{_groups}->[0]->{_membership},
                {
                    $self->{_groups}->[2]->{id} => 1,
                    $self->{_groups}->[0]->{id} => 0,
                    $self->{_groups}->[3]->{id} => 2,
                },
                "hippydom cascades"
             );
        },
        sub {
            my $self = shift;
            ok(
                $self->{_groups}->[0]->add_to_group($self->{_groups}->[1]),
                "reconnect groups"
            );
        },
        sub {