ClearPress

 view release on metacpan or  search on metacpan

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

630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
      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

569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
 
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

10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
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

9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
  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;