Re: Subroutines reference from data

by chip (Curate)

on Mar 22, 2004 at 23:02 UTC ( [id://338815]=note: print w/replies, xml )

Need Help??

For most purposes, the UNIVERSAL::can method will serve:

if (my $code = main->can($key)) { &$code() };

If you don't mind turning off strict 'refs', there's the ever-popular defined:

&$key() if defined &$key;

edited: to make the first example strict-safe. Thanks, tinita.

-- Chip Salzenberg, Free-Floating Agent of Chaos

Comment on Re: Subroutines reference from data Select or Download Code

Replies are listed 'Best First'.
Re: Re: Subroutines reference from data by tinita (Parson) on Mar 22, 2004 at 23:29 UTC
`&$key() if main->can($key);` is not strict safe, but: `if (my $sub = main->can($key)) { $sub->(); }` [download] also nice (but maybe too obfuscated?) would be `(main->can($key)\|\|sub{})->();`	[reply] [d/l] [select]
Re: Re: Subroutines reference from data by Syrkres (Sexton) on Mar 22, 2004 at 23:24 UTC
First, Thanks for the quick reply. Gotta love it! Second, Worked excellent. Thanks.	[reply]

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://338815]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others making s'mores by the fire in the courtyard of the Monastery: (2)

As of 2024-04-20 02:18 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found