Select Code to Download

use Some::Class;

my $obj = Some::Class->new( \%options );

use Some::Other::Class;

my $obj = Some::Other::Class( \%options );

package Some::Other::Class;
use Classname::Constructor;
...
sub new {
  # whatever
}

sub import { 
    my $caller = caller(0);
...
    no strict 'refs';
    *{$caller} = sub { unshift @_, $caller; goto &{"$caller\::new"} };
}

package Wherever;

use OneWordClass;
my $obj = ::OneWordClass( \%options );

use Some::Other::Class;

my $obj = Some_Other_Class( \%options );

use Classname::Constructor 'create';