sub import {
  my($pkg, %args) = @_;

  return
    unless exists $args{as} and length $args{as};

  croak "Glob '$args{as}' already exists"
    if defined *{$args{as}};

  *{"$args{as}\::"} = *{"$pkg\::"};
}

## usage

use Very::Long::Class::Name ( as => 'Name' );

my $obj = Name->new;

##</code><code>##

use Very::Long::Class::Name;
use Package::Alias ( Name => 'Very::Long::Class::Name' );