ClearPress

 view release on metacpan or  search on metacpan

lib/ClearPress/model.pm  view on Meta::CPAN

      if($EVAL_ERROR =~ /missing\sentity/smx) {
	return;
      }
      carp qq[SELECT ERROR\nEVAL_ERROR: $EVAL_ERROR\nQuery:\n$query\n\nParams: @{[map { (defined $_)?$_:'NULL' } @args]}\n];
    };
  }
  $self->{_loaded} = 1;
  return 1;
}

sub update {
  my $self  = shift;
  my $pk    = $self->primary_key();

  if(!$pk || !$self->$pk()) {
    croak q(No primary key);
  }

  my $table = $self->table();
  if(!$table) {
    croak q(No table defined);

lib/ClearPress/view.pm  view on Meta::CPAN

sub delete { ## no critic (homonym)
  my $self  = shift;
  my $model = $self->model;

  $model->delete or croak qq[Failed to delete entity: $EVAL_ERROR];

  return 1;
}

sub update {
  my $self  = shift;
  my $model = $self->model;

  #########
  # Populate model object with parameters posted into CGI
  # by default (in controller.pm) model will only have util & its primary_key.
  #
  $self->_populate_from_cgi;

  $model->update or croak qq[Failed to update entity: $EVAL_ERROR];

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

sub fields {
  return qw(test_pk test_field);
}

########
# disable reading from database
#
sub create { return 1; }
sub read   { return 1; } ## no critic
sub update { return 1; }
sub delete { return 1; } ## no critic

1;

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

  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;