Help for this page

Select Code to Download


  1. or download this
    package Shared;
use warnings;
...
}

__PACKAGE__
  2. or download this
    #!/usr/bin/perl
use warnings;
...
for my $pair (test_list()) {
    print "@$pair\n";
}
  3. or download this
    package Shared_OO;
use warnings;
...


__PACKAGE__
  4. or download this
    #!/usr/bin/perl
use warnings;
...
for my $pair ($o->test_list) {
    print "@$pair\n";
}