Select Code to Download

if ( ref( $obj ) eq 'Foo::Bar' ) {
    # This is generally wrong
}
...
if ( blessed( $obj ) and $obj->isa( 'Some::Object' ) ) {
    # This is close to your original and is slightly deprecated but al
+so respects OO inheritance.
}