Select Code to Download

#runme.pl
use lib '.';
...
my $ec = ExampleClass->new;

print $ec->does_work,"\n";

#ExampleClass.pm
package ExampleClass;
...
}

1;

#BarWrapper.pm
package BarWrapper;
...
require "bar.pl";
require "foo.pl";
1;

#bar.pl
sub i_am_another_sub {
...
}

1;

#FooWrapper.pm
package FooWrapper;
...

require "foo.pl";
1;

#foo.pl
sub can_i_see_you {
...
}

1;