print $o->UNIVERSAL::isa('Bar'); # Bar => 1, Foo => 1