if ( ref($obj) eq 'FOO' ) {...}