NAME

DBIx::Class::Wrapper::Object - Base class for object containing business code around another DBIC object.

PROPERTIES

bm

The business model. Mandatory.

EXAMPLE

            

              
              
package My::BM::O::User;
use Moose;
extends qw/DBIx::Class::Wrapper::Object/;
has 'dbuser' => ( isa => 'My::Schema::Result::User' , is => 'ro' , required => 1 , handles => qw/.*/ );
sub check_password{
    my ($self , $password) = @_;
    return $self->password() eq $password; # Do NOT do that :)
}
1;