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