use Some::Class;

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

##</code><code>##

use Some::Other::Class;

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

##</code><code>##

package Some::Other::Class;
use Classname::Constructor;

sub new {
  # whatever
}

##</code><code>##

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

##</code><code>##

package Wherever;

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

##</code><code>##

use Some::Other::Class;

my $obj = Some_Other_Class( \%options );

##</code><code>##

use Classname::Constructor 'create';