Re: Re: Re: test for subroutine existence


Just another Perl shrine
	PerlMonks

Re: Re: Re: test for subroutine existence

by twerq (Deacon)

on Aug 12, 2002 at 14:27 UTC ( [id://189502]=note: print w/replies, xml )

Need Help??

in reply to Re: Re: test for subroutine existence
in thread test for subroutine existence

Okay, anyway -- now it seems pretty obvious:

print "my_sub ", test_for_sub("my_sub") ? "exists\n" : "doesn't exist\
+n";
print "no_sub ", test_for_sub("no_sub") ? "exists\n" : "doesn't exist\
+n";

sub test_for_sub {
        my ($expr) = @_;
        return eval "defined &$expr";
}

sub my_sub { 1; }
[download]

--twerq