add feture. all model class ...
|
1 |
package MyModel1::Company; |
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 | ||
9 |
sub insert { |
|
10 |
my ($self, $param) = @_; |
|
11 |
|
|
12 |
return $self->SUPER::insert(param => $param); |
|
13 |
} |
|
14 | ||
15 |
sub list { shift->select; } |
|
16 | ||
17 |
1; |