Select Code to Download

package Bar;

...
    print "x(): @_\n";
}
1;

package Foo;

...
    Bar->import(@_);
}
1;

#!/usr/bin/perl

...
$ ./824136.pl
Foo::import(): Foo x
x(): bla