Select Code to Download

package Foo;
sub sort($&) {
...

package Bar;
Foo->sort({ $a cmp $b });           <-- Sub compiled in another

package Foo;
sub sort($&) {
...
   die $@ if $@;
   ...
}