package Foo;
use Package::Prefix Our => 'Foo::Our';

sub new {
  my $self = bless {}, shift;
  $self->Our::init(@_);
  return $self;
};

sub Our::init { ... };