view release on metacpan or  search on metacpan

lib/Role.pm  view on Meta::CPAN

    1;

=head2 Role with Simple Attributes

    package Role::Timestamped;
    use Role;

    has 'created_at' => ( default => sub { time } );
    has 'updated_at' => ( default => sub { time } );

    sub update_timestamp {
        my $self = shift;
        $self->updated_at(time);
    }

    1;

    # Usage in class:
    package My::Class;
    use Class;
    with qw/Role::Timestamped/;