Select Code to Download

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