@Bar::ISA = qw(Foo);
sub Bar::xxx {
   my $self = shift;
   warn "Bar::xxx called";
   return $self->Foo::xxx(@_);   # instead of SUPER::xxx
}