[Moscow.pm] функция не из нашего пакета

[Dmitry E. Oboukhov]

имеется некая функция, скажем foo.

как можно узнать из какого пакета данная функция?

пример:

package Ap;
use base 'Exporter';
our @EXPORT=qw(foo);

sub foo
{
	return 'blah';
}

package main;
use Ap;

sub foo1
{
	return 'blah2';
}

# вот тут имеем функцию
# main::foo, нужно имея ссылку на \&main::foo узнать
# что это на самом деле Ap::foo
# а так же имея ссылку на \&main::foo1, узнать что она
# и есть main::foo1

--
... 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/20081229/4958c9ae/attachment.bin>