If you suspect $obj isn't an object, the following is the suggested solution:

if (eval { $obj->can($top) })
[download]

However, I don't see any problems with using blessed (aside from being wordier).