perl, не экспортируются функции пакета

[vadiml]

в 1 модуле есть 2 пакета,
то, что экспортирует 1-й пакет модуля видно, остальные -- нет:
вот сам модуль (файл blib/lib/My/Test1.pm, каталог blib используется чтоб само в @INC попадало):

Код: Выделить всё

package My::Test1;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(Test1);
our @EXPORT_OK;

sub Test1 {
    print "My::Test1\n";
}


package My::Test2;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(Test2);
our @EXPORT_OK = @EXPORT;;

sub Test2 {
    print "My::Test2\n";
}

package My::Test1;

1;

вот вызов (тестовый скрипт test.pl):

Код: Выделить всё

#!/usr/bin/perl -w

use blib;
use My::Test1;

Test1();

Test2();

на что получаю:
[vadim@vadim tests]$ perl test.pl
My::Test1
Undefined subroutine &main::Test2 called at test.pl line 8.
т.е. Test2 не экспортируется

Чего здесь не хватает?

[vadiml]

решение нашлось
см http://forum.vingrad.ru/forum/topic-165398...e-exporter.html