Yuki Kimoto test cleanup
f3bb824 13 years ago
1 contributor
13 lines | 0.191kb
  1. package MyModel1::TABLE1;
  2.  
  3. use DBIx::Custom::Model -base;
  4.  
  5. sub insert {
  6. my ($self, $param) = @_;
  7. return $self->SUPER::insert(param => $param);
  8. }
  9.  
  10. sub list { shift->select; }
  11.  
  12. 1;