2011/10/26 Ilya Chesnokov <[email protected]>: > 26 октября 2011 г. 16:28 пользователь Sergiy Borodych > <[email protected]> написал: >> Hello, >> >> 2011/10/26 Ivan Petrov <[email protected]>: >>> нужно написать некий функционал в стиле 'use base "Module"'; >>> >>> соответственно хочется чтобы этот модуль делал 'require Module'. >>> >>> вроде все просто, однако хочется чтобы работало и с пакетами, которые >>> не выделены в модули >>> >>> если пишем >>> >>> use Module::Loaded; >>> use Module::Load; >>> >>> unless (loaded $module) { >>> load $module; >>> } >>> >>> то load естественно обламывается в случае если передается имя пакета, >>> который определен прямо в main::. >>> >> >> У меня работает. > > ))) > А вот такой скрипт что скажет? > > #!/usr/bin/perl > use v5.10; > use strict; > use warnings; > use Module::Load; > > load 'Test'; > say $Test::VERSION; > > package Test; > > our $VERSION = 0.01; > > 1; >
Эх, и хотел же написать "Странно, но ..." :) -- Sergiy Borodych http://bor.org.ua -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
