if(ref($me) && UNIVERSAL::isa($me,'my_class_name')) {
[download]

If you're doing a functional call, then there's no reason for the 'ref($me) &&' in that expression, though I think you get a warning on earlier versions of perl (not sure how early) if '$me' is undefined, so you might say:

if(defined($me) && UNIVERSAL::isa($me,'my_class_name')) {
[download]

Then again, you could just leave out the first part and turn off warnings locally :-)

Update: Correction by tye duly noted.
If I could transfer all the votes/XP from this node to yours I would...(maybe it could be a feature that our overworked fearless leader could implement someday :)