[Moscow.pm] экспорт/импорт

[Dmitry E. Oboukhov]

apache:[~]$ cat AA.pm 
package AA;
use A from => 'AA';
sub import { printf "import AA: %s\n", join " ", @_; }

print "== AA ==\n";
1;
apache:[~]$ cat test.pl 
use warnings;
use strict;
use A from => 'main';
use AA from => 'main';
print "main\n";

apache:[~]$ perl test.pl
== A ==
import A: A from main
import A: A from AA
== AA ==
import AA: AA from main
main


то есть в импорте имеем имя текущего модуля и параметры импорта.

А как узнать в этой функции ИЗ какого модуля нас экспортируют?

то есть чтобы нечто вроде сборщика статистики пишется, хочется
чтобы написали в модуле use blah;

и далее print blah->foos;

вывели перечень функций в ДАННОМ модуле.

соответственно для реализации такой возможности нужно в импортируемом
знать откуда нас импортируют

КАК?
--
... mpd is off

. ''`.                               Dmitry E. Oboukhov
: :’  :   email: unera на debian.org jabber://UNera@uvw.ru
`. `~’              GPGKey: 1024D / F8E26537 2006-11-21
  `- 1B23 D4F8 8EC0 D902 0555  E438 AB8C 00CF F8E2 6537
----------- следущая часть -----------
A non-text attachment was scrubbed...
Name: отсутствует
Type: application/pgp-signature
Size: 197 bytes
Desc: Digital signature
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20081208/cdb4a01f/attachment-0001.bin>