[Moscow.pm] Module::Loaded

[Sergiy Borodych]

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 'OK';

package Test;
1;

> Понятно что можно поглядеть в пространство имен есть ли уже такой
> пакет или нет.
>
> но вот интересно, может стандартное есть что-то на эту тему чтобы
> велосипед не городить?

-- 
Sergiy Borodych
http://bor.org.ua