Try my aliased module. It only works for objects, but that's what you wanted, even though I wasn't entirely clear how you were setting things up.

# implicit aliasing takes the last part of the package name
use aliased 'Really::Long::Class::Name';
my $name = Name->new;

# explicit aliasing allows a rename
use aliased 'Some::Long::Name::That::I::Hate' => 'Name';
[download]

You can also try Package::Alias, but that requires you use the package prior to aliasing it to another namespace.