view release on metacpan or  search on metacpan

t/lib/t/model/touchy.pm  view on Meta::CPAN

package t::model::touchy;
use strict;
use warnings;
use base qw(ClearPress::model);

__PACKAGE__->mk_accessors(fields());

sub fields {
  return qw(id_touchy created last_modified);
}

sub create {
  my $self               = shift;
  $self->{created}       = $self->isodate;
  $self->{last_modified} = $self->isodate;
  return $self->SUPER::create;
}

sub update {
  my $self               = shift;
  $self->{last_modified} = $self->isodate;
  return $self->SUPER::update;
}

1;