package MyModel1::TABLE2;
use strict;
use warnings;
use base 'DBIx::Custom::Model';
sub insert {
my ($self, $param) = @_;
return $self->SUPER::insert($param);
}
sub list { shift->select; }
1;
package MyModel1::TABLE2;
use strict;
use warnings;
use base 'DBIx::Custom::Model';
sub insert {
my ($self, $param) = @_;
return $self->SUPER::insert($param);
}
sub list { shift->select; }
1;