Select Code to Download

package My::User;

...
__PACKAGE__->has_a( 'user' => 'My::User' );
__PACKAGE__->has_a( 'capability' => 'My::Capability' );

foreach ( $user->capabilities() ) {
    print $_->capability->name(), "\n";
}

foreach ( $capability->users() ) {
    print $_->user->name(), "\n";
}

sub get_capabilities {
    my ( $self ) = @_;
...

    return map { $_->capability->name() } @capabilities;
}