[Moscow.pm] Module::Loaded

[Sergiy Borodych]

2011/10/26 Ilya Chesnokov <chesnokov.ilya на gmail.com>:
> 26 октября 2011 г. 16:28 пользователь Sergiy Borodych
> <sergiy.borodych на gmail.com> написал:
>> Hello,
>>
>> 2011/10/26 Ivan Petrov <i.petro.77.00 на gmail.com>:
>>> нужно написать некий функционал в стиле '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