[Moscow.pm] Иерархия use

[Alexander Lourier]

В письме Monday 19 October 2009 10:43:18 Dmitry E. Oboukhov написал:

> Есть бааальшой проект с тысячей модулей.
> Хочется посмотреть на то нет ли взаимных вызовов use из разных
> модулей.
>
> Чем можно посмотреть дерево вызовов use для определенного перлового
> скрипта или модуля?

Можно что-то такое написать:

        *UNIVERSAL::import = sub {

                my $module = $_[0];
                my ($to) = caller(0);

                print "$module => $to\n";
        };

Но, если какой-то модуль переопределит метод import, то переопределенный метод не будет вызван, и соответственно, когда 
этот модуль будут use, то это фиксироваться не будет. В частности, Exporter делает именно это. Если надо только на 
время отладки, то можно похачить Exporter и в его import вставить этот код.

-- 
Alexander Lourier, http://aml.rulezz.ru/