Some more detail: user_model
file: code/Winxle::Model::User 1: package Winxle::Model::User; 2: use 5.018; 3: use Moose; 4: use Winxle::X; 5: 6: with qw( Validad::Tools::Role::Attrib::Schema ); 7: 8: sub load { 9: my ( $self, $uuid ) = @_; 10: 11: my $usr = $self->resultset('Usr')->find({ uuid => $uuid }); 12: return $usr if $usr; 13: 14: Winxle::X::NotFound->throw({ 15: ident => 'no_such_usr', 16: message => "Cannot load %{class}s from uuid %{id}s", 17: class => 'Usr', 18: id => $uuid, 19: }); 20: }
a plain Moose class