| Coat-Persistent documentation | Contained in the Coat-Persistent distribution. |
Coat::Persistent::Object - root object for Coat::Persistent models
This class is meant to be a default root object for Coat::Persistent models. It provides through inheritance default attributes (that must exist in the underlying table) and default hooks and methods.
You just have to make your models inherit from Coat::Persistent::Object like the following :
package MyModel;
use Coat;
use Coat::Persistent;
extends 'Coat::Persistent::Object';
1;
Any model that inherits from this class must wrap a table that owns the following fields:
This module has been written by Alexis Sukrieh <sukria@cpan.org>
| Coat-Persistent documentation | Contained in the Coat-Persistent distribution. |
package Coat::Persistent::Object; use Coat; use Coat::Persistent; use Coat::Persistent::Types; has_p 'created_at' => ( isa => 'Class::Date', store_as => 'DateTime', ); has_p 'updated_at' => ( isa => 'Class::Date', store_as => 'DateTime', ); before 'save' => sub { my ($self) = @_; $self->created_at(time) unless $self->created_at; $self->updated_at(time); }; 'Coat::Persistent::Object'; __END__