Ernst Ernst #29

Data class

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
Copyright © 2008 Jonathan Rockway