Here's a thought - offload the naming decision onto the developer:

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

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

sub Our::init { ... };
[download]

which would have the affect of defining/calling Foo::Our::init. This could have other convenient uses:

use Package::Prefix VLPN => 'Very::Long::Package::Name';
use VLPN::Foo;
use VLPN::Bar;

my $foo = VLPN::Foo->new();
my $bar = VLPN::Bar->new();
[download]