my $obj = Foo::Bar->new;

##</code><code>##

    if ( $obj->isa( 'Foo' ) ) {...}