|
Yuki Kimoto
authored on
2011-08-15
|
1
|
package MyModel1::TABLE1;
|
|
2
|
|
|
3
|
use DBIx::Custom::Model -base;
|
|
4
|
|
|
5
|
sub insert {
|
|
Yuki Kimoto
authored on
2012-01-20
|
6
|
my ($self, $param) = @_;
|
|
7
|
|
|
8
|
return $self->SUPER::insert(param => $param);
|
|
Yuki Kimoto
authored on
2011-08-15
|
9
|
}
|
|
10
|
|
|
11
|
sub list { shift->select; }
|
|
12
|
|
|
13
|
1;
|