To be on the safe side, probably using the BLOCK form of eval is the best way to go

Or better yet, just use can e.g

sub foo { }

my($class, $invoke) = qw/ main foo /;

print "$class can $invoke" if UNIVERSAL::can($class, $invoke);

__output__

yup
[download]

HTH

_________
broquaint