add feture. all model class ...
|
1 |
package MyModel1::book; |
removed experimental base_ta...
|
2 | |
3 |
use strict; |
|
4 |
use warnings; |
|
5 | ||
add feture. all model class ...
|
6 |
use base 'DBIx::Custom::Model'; |
removed experimental base_ta...
|
7 | |
8 |
sub insert { |
|
9 |
my ($self, $param) = @_; |
|
10 |
|
|
11 |
return $self->SUPER::insert(param => $param); |
|
12 |
} |
|
13 | ||
14 |
sub list { shift->select; } |
|
15 | ||
16 |
1; |