[Moscow.pm] Хочу обычного
Анатолий Гришаев
0body0 на rambler.ru
Чт Окт 17 04:50:47 PDT 2013
Проблема:
Вот есть у меная много классов с длинными именами типа
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;
....
Собрать такое минут за двадцать можно , но хотелось бы чего-нибудь уже
готового.
Подробная информация о списке рассылки Moscow-pm