Проблема:
Вот есть у меная много классов с длинными именами типа
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 mailing list
[email protected] | http://moscow.pm.org
