Re: Check for sub / don't fail on non-existent sub

I use this:

my $sub_x = 'Some::Sub';
my $Result = 'Bad';
if (exists &{$sub_x}
        && (ref $sub_x eq 'CODE' || ref $sub_x eq '')) {
        $Result = 'Good';
    }
print $Result . "\n"
[download]

What did the Pro-Perl programmer say to the Perl noob?
You owe me some hair.

Comment on Re: Check for sub / don't fail on non-existent sub Download Code

Replies are listed 'Best First'.
Re^2: Check for sub / don't fail on non-existent sub by ikegami (Patriarch) on Aug 29, 2009 at 12:41 UTC
Simpler: `my $sub_x = 'Some::Sub'; if (defined(&$sub_x)) { print("It's there\n"); } else { print("It's not there\n"); }` [download]	[reply] [d/l]
Re^3: Check for sub / don't fail on non-existent sub by Sewi (Friar) on Aug 29, 2009 at 18:51 UTC
Wow, I expected that defined() would be applyed to the result of $sub_x, but a test showed that it doesn't. Thank you all!	[reply]