Re^2: Name of caller if aliased?

> given your show function you can look in the symbol table to collect any enrty that point to the same code.

Yes I could parse the stash of the calling package and compare the CODE-slots to identify aliases.

But apart from the overhead, the results won't be necessarily unique.

$\="\n";
sub show {
    print join "\t",(caller(0))[0..3];
};

show();

package Test;

*func = \&main::show;
*funk = \&main::show;

func();
funk();
[download]

/usr/bin/perl -w /tmp/tst.pl 
main    /tmp/tst.pl    6    main::show
Test    /tmp/tst.pl    13    main::show
Test    /tmp/tst.pl    14    main::show
[download]

Cheers Rolf
_{(addicted to the Perl Programming Language and ☆☆☆☆ :)}

PS: Je suis Charlie!

Comment on Re^2: Name of caller if aliased? Select or Download Code