If all your concerned about is long class names in calling OO code nobody seems to have mentioned the simplest option - just put the class name in a constant subroutine or a variable.
sub Very::Very::Very::Very::Long::Name::hello {
my $class = shift;
print "$class says hello\n"
};
# old school way
Very::Very::Very::Very::Long::Name->hello;
# compile time constant sub works fine - but can be confusing to read
use constant VVVVLN => 'Very::Very::Very::Very::Long::Name';
VVVVLN->hello;
# I tend to just use a variable
my $VVVVLN = 'Very::Very::Very::Very::Long::Name';
$VVVVLN->hello;