Devel::InnerPackage | Perl, Python - блог программиста

Модуль предоставляет всего одну функцию list_packages(), которая ищет все вложенные пакеты в указанном пакете и возвращает их названия в виде списка.

Синтаксис

use Foo::Bar;
use Devel::InnerPackage qw(list_packages);

my @inner_packages = list_packages('Foo::Bar');

use Foo::Bar;

use Devel::InnerPackage qw(list_packages);

my @inner_packages = list_packages('Foo::Bar');

Пример

Допустим, есть пакет MyPackage, который содержит внутри еще несколько пакетов:

package MyPackage;
sub func {}

package MyPackage::MyBasket;
sub func1 {}

package MyPackage::MyService;
sub func2 {}

1;

package MyPackage;

sub func {}

package MyPackage::MyBasket;

sub func1 {}

package MyPackage::MyService;

sub func2 {}

В отдельном скрипте выполняем вызов функции list_packages():

use MyPackage;
use Devel::InnerPackage qw(list_packages);

my @list = list_packages("MyPackage");

print join(', ', @list);

use MyPackage;

use Devel::InnerPackage qw(list_packages);

my @list = list_packages("MyPackage");

print join(', ', @list);

Результат выполнения:

$ perl Devel_InnerPackage.pl
MyPackage::MyService, MyPackage::MyBasket

1 2	$ perl Devel_InnerPackage.pl MyPackage::MyService, MyPackage::MyBasket

Поиск входящих пакетов осуществляется только в указанном пакете, в файле этого пакета. В других файлах поиск не выполняется. Функция выполняет поиск с помощью grep(), substr() и регулярных выражений.