package Bar;

sub override_Foo
{
  *Foo::new = \&Bar::new;
  *Foo::method2 = \&Bar::method2;
  # etc.
}

1;