Select Code to Download

if( $value->isa( "Node" ) ) {
   # It's okay to put $value into the parent attribute
}

$obj->parent( 0 );
is( $obj->parent, undef );

if( ref( $value ) && ref( $value ) ne "SCALAR" && ref( $value ) ne "AR
+RAY" && ref( $value ) ne "HASH" && $value->isa( "Node" ) ) {