. . .
sub override_Foo
{
	my $pkg = shift;
	local @Bar::EXPORT = @_;
	package Foo; # how dare we!
	Bar->import;
}

# and then:

Bar->override_Foo(qw( new method2 ));