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