text: aliased - Use shorter versions of class names.
  0.30
  #;
  aliased is simple in concept but is a rather handy module. It loads the class you specify and exports into your namespace a subroutine that returns the class name. You can explicitly alias the class to another name or, if you prefer, you can do so implicitly. In the latter case, the name of the subroutine is the last part of the class name.ing OO modules. You cannot use this to load procedural modules. See the Why OO Only? section. Also, don't let the version number fool you. This code is ridiculously simple and is just fine for most use.
  The most common use of this module is:
  use aliased 'Some::Module::name';
  aliased will allow you to reference the class by the last part of the class name. Thus,
  Really::Long::Name becomes
  Name. It does this by exporting a subroutine into your namespace with the same name as the aliased name. This subroutine returns the original class name.
  For example:
  use aliased "Acme::Company::Customer"; my $cust = Customer->find($id);
  Note that any class method can be called on the shorter version of the class name, not just the constructor..
  my $alias = alias($class); my $alias = alias($class, @imports);
  alias() is an alternative to
  use aliased ... which uses less magic and avoids some of the ambiguities.
  Like
  use aliased it
  uses the $class (pass in @imports, if given) but instead of providing an
  Alias constant it simply returns a scalar set to the $class name.
  my $thing = alias("Some::Thing::With::A::Long::Name"); # Just like Some::Thing::With::A::Long::Name->method $thing->method;.
  This modules exports a subroutine with the same name as the "aliased" name.
  There are no known bugs in this module, but feel free to email me reports.
  Many thanks to Rentrak, Inc. () for graciously allowing me to replicate the functionality of some of their internal code.
  Curtis Poe,
  ovid [at] cpan [dot] org
  This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.5 or, at your option, any later version of Perl 5 you may have available.