Help for this page

Select Code to Download


  1. or download this
    package Util::Stuff;
use strict;
...
...
1;
  2. or download this
    Util::Stuff:aaa1
Util::Stuff:aaa2
Util::Stuff:aaa3
  3. or download this
    use Util::Stuff;

my $temp1 = Util::Stuff::aaa1->flag;
my $temp2 = Util::Stuff::aaa2->flag;
my $temp3 = Util::Stuff::aaa3->flag;
  4. or download this
    use Util::Stuff;

...
foreach my $name (@names) {
    push @temp, $name->flag;'
}