Help for this page

Select Code to Download


  1. or download this
    package orig::functions;
BEGIN {
...
sub func3 {
  print "world";
}
  2. or download this
    package replace::functions;
BEGIN {
...
sub funcy {
  print "new y";
}
  3. or download this
    # program A

use orig::functions qw(func1 func2 func3);

print func1(), func2(), func3(), "\n";
  4. or download this
    # program B

...
print func1(), func2(), func3(), "\n";

print funcx(), "\n";