my $foo = Foo->new;
print "foo is".($foo->isa( 'Bar' ) ? '' : ' _not_')." a Bar\n";

package Bar;

package Foo;
@Foo::ISA = qw(Bar);
sub new { bless {},shift }
__END__
$foo is _not_ a Bar