[Moscow.pm] Module::Loaded

[Ilya Chesnokov]

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;


-- 
Best regards,
Ilya Chesnokov