The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

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;