[Moscow.pm] Хочу обычного

[Анатолий Гришаев]

Проблема:
Вот есть у меная много классов с длинными именами типа 
MyCompany::MySchema::Sklad::Feature::SubFeatureClass .

И дальше используем
use MyCompany::MySchema::Sklad::Feature::SubFeatureClass;
my $feature_obj1 = 
MyCompany::MySchema::Sklad::Feature::SubFeatureClass->new;
my $feature_obj2 = 
MyCompany::MySchema::Sklad::Feature::SubFeatureClass->new;
....

можно сократить не много кода
use MyCompany::MySchema::Sklad::Feature::SubFeatureClass;
use constant Feature=> 
'MyCompany::MySchema::Sklad::Feature::SubFeatureClass';
my $feature_obj1 = Feature->new;
my $feature_obj2 = Feature->new;
....

Но хотелось бы примерно такого:

use MyCompany::MySchema::Sklad::Feature::SubFeatureClass -as => 'Feature';

и далее
my $feature_obj1 = Feature->new;
my $feature_obj2 = Feature->new;
....

Собрать такое  минут за двадцать можно ,  но хотелось бы чего-нибудь уже 
готового.