package MyApp::Example::Model; use strict; use base 'Example::Model'; sub new { my $class = shift; return bless Example::Model->new(@_), $class; } sub mymethod1 { ####; } sub mymethod2 { ####; } 1;