Select Code to Download

package Bar
warn "blaah";
sub bar { }
use interface Foo;
1

package Bar;
sub BEGIN {
   eval "use Bar" if $loaded_for_the_first_time;
   do_stuff();
}

# Foo.pm
use Bar;

# Bar.pm
use Foo;