view release on metacpan or  search on metacpan

lib/Data/MuForm/Model.pm  view on Meta::CPAN

package Data::MuForm::Model;
# ABSTRACT: Base Model role

use Moo::Role;

has 'model' => (
    is      => 'rw',
    lazy    => 1,
    builder => 'build_model',
    clearer => 'clear_model',
    trigger => sub { shift->set_model(@_) }
);
sub build_model { return }

sub set_model {
    my ( $self, $model ) = @_;
    $self->model_class( ref $model );
}

has 'model_id' => (
    is      => 'rw',
    clearer => 'clear_model_id',
    trigger => sub { shift->set_model_id(@_) }
);

sub set_model_id { }

has 'model_class' => (
#   isa => 'Str',
    is  => 'rw',
);

sub use_model_for_defaults {1}

sub validate_model { }

sub update_model { }

sub lookup_options { }

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Data::MuForm::Model - Base Model role

=head1 VERSION

version 0.05

=head1 AUTHOR

Gerda Shank

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2018 by Gerda Shank.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut