view release on metacpan or  search on metacpan

t/lib/Blog/Model/Entry2.pm  view on Meta::CPAN

package Blog::Model::Entry2;

use strict;
use warnings;

use Moose;

with 'DBIx::NoSQL::Store::Manager::Model';

has url => (
    traits   => [ 'StoreKey' ],
    is       => 'ro',
    required => 1,
);

has author => (
    traits => [ 'StoreModel' ],
    cascade_model => 1,
    store_model => 'Blog::Model::Author',
    is     => 'rw',
);

has tags => (
    traits => [ 'Array', 'StoreModel' ],
    cascade_save => 1,
    store_model => 'Blog::Model::Tag',
    is     => 'ro',
    default => sub { [] },
);

__PACKAGE__->meta->make_immutable;

1;