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;