After looking around, trying to figure out what I want to do, I decided to use the 'walk like a duck' approach and use can. However, the same problem occured! So I use this solution together with can. Thanks for this one!

use Scalar::Util qw(blessed);

if ( blessed( $value ) and $value->can( 'parent' ) ) {
   #
}
[download]

    -Bryan