Data class
- MooseX::Storage::Directory for storage
package Post;
use Ernst;
has 'uuid' => (
is => 'ro',
isa => UUID,
required => 1,
default => sub {
Data::UUID->new->create_str;
},
);
sub get_id { shift->uuid } # for the role