Help for this page

Select Code to Download


  1. or download this
    package Foo;

...
our @EXPORT = qw( $foo );

1;
  2. or download this
    package Client1;
use strict;
use warnings;
use Foo;
1;
  3. or download this
    package Client2;
use strict;
use warnings;
use Foo;
1;
  4. or download this
    #!/usr/bin/perl

...

print "Client1::foo=", $Client1::foo, "\n";
print "Client2::foo=", $Client2::foo, "\n";
  5. or download this
    Client1::foo=FOO
Client2::foo=FOO
Client1::foo=CLIENT2
Client2::foo=CLIENT2