Name of caller if aliased?

LanX has asked for the wisdom of the Perl Monks concerning the following question:

Precious Monkses!

(caller(0))[3] shows me the name of the currently executed function.

But in case of importing/aliasing it'll be the original one not the alias' name.

Any way to find the name of the alias?

details:

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

show();

*func = \&show;

func();
[download]

prints

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

any straight forward way to get "main::func" in the second case?

(no, parsing the calling line is not an option)

Thankses for your attention! :)

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

PS: Je suis Charlie!

Comment on Name of caller if aliased? Select or Download Code

Replies are listed 'Best First'.
Re: Name of caller if aliased? by Discipulus (Canon) on Feb 25, 2015 at 09:25 UTC
So you too ended playing with symbol table..:=) If i understand, and you know i'm still learning, when caller (and i suspect every other trick) starts, the lookup in the symbol table is done and you cannot access anymore the name: you have the right part of the alias assignation. As i understand you want something like (using the web analogy) to `$ENV{HOST}` or `$ENV{REFERRER}` to identify the original name or if you had been redirected: I dont think such introspection exists in Perl (i hope i'm wrong). I think you can only do the opposite thing: given your `show` function you can look in the symbol table to collect any enrty that point to the same code. L* update: for future reader here the ouput of a playground i working on that shows the alias thing: Read more... (2 kB) There are no rules, there are no thumbs.. Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.	[reply] [d/l] [select]
Re^2: Name of caller if aliased? by LanX (Saint) on Feb 25, 2015 at 14:11 UTC
> 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!	[reply] [d/l] [select]
Re: Name of caller if aliased? by Mr. Muskrat (Canon) on Feb 25, 2015 at 20:29 UTC
I don't know how far you want to go to get the names but this seems to work well in my limited testing. Foo.pm: `package Foo; use strict; use warnings; use Sub::Name; # forward declarations so AUTOLOAD can limit what works use subs qw( func funk ); $\ = "\n"; sub show { print join "\t", (caller(0))[0..3]; } sub AUTOLOAD { my ( $name ) = our $AUTOLOAD =~ /::(\w+)$/; return unless __PACKAGE__->can( $name ); # only allow those subs l +isted above my $fullname = __PACKAGE__ . '::' . $name; no strict 'refs'; { $fullname } = Sub::Name::subname $fullname => show; goto &$fullname; } 1;` [download] foo.pl: `#!/bin/env perl use strict; use warnings; use Foo(); Foo::show(); Foo::func(); Foo::funk();` [download] Output: main ./foo.pl 7 Foo::show main ./foo.pl 8 Foo::func main ./foo.pl 9 Foo::funk	[reply] [d/l] [select]
Re^2: Name of caller if aliased? by LanX (Saint) on Feb 25, 2015 at 22:43 UTC
Hi Don't wanna install Sub::Name now but I doubt this really works cause you are renaming the original sub. Try to call func again and it should show the last name assigned. Anyway thanks, I was asking for an easy way, I'll rather stick with generating different closures for each symbol now. :) Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :)} PS: Je suis Charlie!	[reply]
Re^3: Name of caller if aliased? by Mr. Muskrat (Canon) on Feb 25, 2015 at 23:04 UTC
D'oh. You're absolutely right but I did warn you that I had done minimal testing. :)	[reply]
Re: Name of caller if aliased? by Anonymous Monk on Feb 25, 2015 at 08:22 UTC
Didn't rockyb ask about this? This is what comes to mind/bookmark, B::CodeLines/ How to get line ranges of subroutines from Perl source code ... which brings up Devel::Callsite ... its where I'd start looking	[reply]
Re^2: Name of caller if aliased? by LanX (Saint) on Feb 25, 2015 at 14:37 UTC
> Didn't rockyb ask about this? No, he didn't. Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :)} PS: Je suis Charlie!	[reply]