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;
[download]