Re^8: Function name in a variable, can't recall the concept (introspection with ->can )

He probably means something hypothetical...

I was actually thinking about this seriously, and I would likely do something as:

sub get_sub_by_name {
    my ($pkg, $name) = @_ ;
    no strict 'refs' ;
    if ( exists ${$pkg . '::'}{$name} ) {
        if ( ref ${$pkg . '::'}{$name} eq 'CODE' ) {
            return *{$pkg . '::' . $name} ;
        }
    } ;
}
[download]

Maybe it can be written more pretty, and I don't know if any odd-cases are trapped (e.g. what about __ANON__)

edit: Comes to think of it, maybe the line 'exists' is not even needed?

Comment on Re^8: Function name in a variable, can't recall the concept (introspection with ->can ) Download Code

Replies are listed 'Best First'.
Re^9: Function name in a variable, can't recall the concept (introspection with ->can ) by LanX (Saint) on Apr 19, 2019 at 15:23 UTC
I'm afraid your hypothetical code for his hypothetical function is ignoring how typeglobs work. Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery FootballPerl is like chess, only without the dice}	[reply]
Re^10: Function name in a variable, can't recall the concept (introspection with ->can ) by Veltro (Hermit) on Apr 19, 2019 at 17:30 UTC
Oh yeah, haha, what have I been smoking! I'll probably stick with this then: `sub get_sub_by_name { my ($pkg, $name) = @_ ; no strict 'refs' ; if ( defined &{$pkg . '::'. $name} ) { return \&{$pkg . '::'. $name} ; } }` [download]	[reply] [d/l]
Re^11: Function name in a variable, can't recall the concept (introspection with ->can ) by ikegami (Patriarch) on Apr 19, 2019 at 18:06 UTC
`\&$name` works even under strict refs. No need to turn it off. You need to return something (`undef`?) in the else case.	[reply] [d/l] [select]
Re^12: Function name in a variable, can't recall the concept (introspection with ->can ) by Veltro (Hermit) on Apr 19, 2019 at 18:35 UTC
Re^13: Function name in a variable, can't recall the concept (introspection with ->can ) by ikegami (Patriarch) on Apr 19, 2019 at 18:55 UTC
Re^11: Function name in a variable, can't recall the concept (introspection with ->can ) by LanX (Saint) on Apr 19, 2019 at 18:52 UTC
> I been smoking! something very strong it's still broken. update I was wrong, it works almost as well as ->can for non-class modules. Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery FootballPerl is like chess, only without the dice}	[reply]

update