#!/usr/bin/perl

require lib;

for my $tree ("a","b") {
    lib->import($tree);
    
    delete $INC{'Foo.pm'};

    require Foo;
    Foo::Bar();

    lib->unimport($tree);
}
[download]