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";
    }