DBIx::Class - Related Tables

[Andy Wardley]

Paul Makepeace wrote:
> One aspect, that befalls any abstraction system, is that you run into
> a situation where a lot of work is being hidden behind a simple
> interface.

True, although this is something that can be easily mitigated with a
bespoke object method or two and an orcish manoeuvre.

   package My::User;

   use base 'My::Database::Record';

   sub roles {
       my $self = shift;
       return $self->{ roles } ||= {
	  map { $_->role => $_ }
           $self->model->roles->fetch( user_id => $self->{ id } )
       };
   }

   sub has_role {
       my ($self, $role) = @_;
       return $self->roles->{ $role };
   }

These kind of methods can be auto-generated quite easily.

Nevertheless, it does require someone to think about these kind of
issues and design the system accordingly.

A