package Some::Module; our $VERSION = '0.1'; our @ISA = qw( Super::Module ); package Some::Module::YeWhoEnters; sub pfoo { # ... } sub xbar { my ( $foo, $bar ) = @_; # ... my $baz = pfoo( $bar ); # ... } sub Some::Module::new { my $class = shift; # ... return xbar( $_ ); }