use aliased
17 октября 2013 г., 14:50 пользователь Анатолий Гришаев <[email protected]>написал: > Проблема: > Вот есть у меная много классов с длинными именами типа > 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 > -- Sincerely yours, Oleg Kostyuk (CUB-UANIC)
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
