Help for this page
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. }