find out method name from the reference

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

Replies are listed 'Best First'.
Re: find out method name from the reference by betterworld (Curate) on Aug 18, 2008 at 01:38 UTC
`my $ref = \&Pack::foo; # Using B use B; my $gv = B::svref_2object($ref)->GV; print $gv->STASH->NAME, '::', $gv->NAME, "\n"; # Or for simply displaying it in human readable format: use Devel::Peek; Dump $ref;` [download]	[reply] [d/l]
Re: find out method name from the reference by syphilis (Archbishop) on Aug 18, 2008 at 01:29 UTC
Hi, Always fun to try to come up with an XSub that does the job. Assuming you're prepared to speculate on what the name is (as in your example), the following works fine for me on perl 5.10: `use warnings; use strict; use Inline C => <<'EOC'; SV * test (CV * x, char * name) { if(x == get_cv(name, 0)) return newSVuv(1); return newSVuv(0); } EOC package Foo; sub bar {}; package main; my $coderef = \&Foo::bar; my $null; print test($coderef, "Foo::bar"), "\n"; # 1 print test($coderef, "Foo::Bar"), "\n"; # 0 print test($null, "Foo::Bar"), "\n"; # dies appropriately` [download] I think (untested) that for perl 5.8 you would need to rewrite the XSub as: `SV * test (SV * x, char * name) { if((CV)SvRV(x) == get_cv(name, 0)) return newSVuv(1); return newSVuv(0); }` [download] I don't know about the wisdom of using that approach - and there's quite possibly a better solution anyway. It should also be possible to construct an XSub that actually returns the "package::method" name. Update:* For the package name alone: `SV * foo1(SV * x) { return newSVpv(HvNAME(CvSTASH((CV)SvRV(x))), 0); }` [download] But first make sure it is* a code reference that you're passing. Better still, just `use B;` as betterworld suggests. Cheers, Rob	[reply] [d/l] [select]
Re: find out method name from the reference by GrandFather (Saint) on Aug 18, 2008 at 00:05 UTC
If you can provide the package name as a parameter then you can: `use strict; use warnings; package Foo; sub Bar { } package main; sub test { my ($package, $function_ref) = @_; no strict; for my $key (keys %{"${package}::"}) { my $ref = ${"${package}::"}{$key}; if (defined $ref && \&$ref eq $function_ref) { print "${package}::$key\n"; } } } test ('Foo', \&Foo::Bar);` [download] Prints: `Foo::Bar` [download] Perl reduces RSI - it saves typing	[reply] [d/l] [select]
Re: find out method name from the reference by repellent (Priest) on Aug 18, 2008 at 04:37 UTC
FYI: How to de-reference a coderef?	[reply]
Re^2: find out method name from the reference by Viki@Stag (Sexton) on Aug 18, 2008 at 07:53 UTC
Instead of using code references the way you mention in your question, you can keep track of the subroutines using a hash like this : (You may put this into another package & use it in your script) `my %code_ref_hash = ( 'method1' => \&Package1::Method1, 'method2' => \&Package2::Method2, );` [download] So that when you want to call a method, u can just use: `$code_ref_hash{'method1'}(); # OR $code_ref_hash{'method1'}->();` [download] Instead of using references, you have the name of the method instead. However for this, you have to 'not use strict on refs': `no strict refs;` [download] My Perl Blog -> http://techdiary-viki.blogspot.com	[reply] [d/l] [select]
Re: find out method name from the reference by phaylon (Curate) on Aug 19, 2008 at 11:20 UTC
Could Sub::Identify help? From the Synopsis: `use Sub::Identify ':all'; my $subname = sub_name( $some_coderef );` [download] Ordinary morality is for ordinary people. -- Aleister Crowley	[reply] [d/l]
Re^2: find out method name from the reference by taghi (Initiate) on Oct 07, 2008 at 19:33 UTC
Even better. The Devel::Peek::CvGV() method is a little vague since the man page mentions that it returns "one of" the globs associated with a subroutine reference. I'm not sure what others might exist, but this would certainly imply that there might be more than one. The Sub::Identify module is based on B, which seems like it's a little more appropriate for my use. Plus, it's a little more flexible in exactly what I get back. Thanks!	[reply]
Re: find out method name from the reference by JavaFan (Canon) on Aug 18, 2008 at 11:40 UTC
Since it's possible to take references to unnamed functions, or for functions to have more than one name (this is what happens if you import functions), I think the answer is "no".	[reply]


Welcome to the Monastery
	PerlMonks