Simple db proxy class

db_proxy.pm

package Supplier;

use strict;
use warnings;

use Moo;
use Carp qw/croak/;

has 'code'          => ( is => 'ro', required => 1 );
has 'db_row'        => ( is => 'lazy', builder => 1 );

for my $attr (qw/name id active group_id/) {
    has $attr => ( is => 'lazy', default => sub { shift->db_row->{$attr}; } );
}

with 'Role::WithDBModel';

sub _build_db_row {
    my $self = shift;
    my $db_row = $self->model( 'supplier' )->get_supplier_by_code( $self->code );
    croak "Couldn't find supplier " . $self->code . " in database" unless $db_row;
    return $db_row;
}

=pod

Simple skeleton for a supplier

=cut
1;

Usage: Supplier->new( code => "CODE" )->name; (would fetch the name of a supplier with a certain code)