Yuki Kimoto cleanup
5e8d869 13 years ago
1 contributor
17 lines | 0.214kb
  1. package MyModel1::TABLE2;
  2.  
  3. use strict;
  4. use warnings;
  5.  
  6. use base 'DBIx::Custom::Model';
  7.  
  8.  
  9. sub insert {
  10. my ($self, $param) = @_;
  11. return $self->SUPER::insert(param => $param);
  12. }
  13.  
  14. sub list { shift->select; }
  15.  
  16. 1;