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;