use aliased;
my $Customer = alias 'Long::Class::Name::For::Customer';
my $customer = $Customer->new;