Help for this page

Select Code to Download


  1. or download this
    package MYPACKAGE;
[...]
my ($ab, $cd, $ef, ..., $yz) =
  map { ... some function of $_ ... } ('ab', 'cd', ..., 'yz');
  2. or download this
    my ($field1, ...) =
  map { __PACKAGE__ . '::' . $_ } ('field1', ...);
[...]
... $self->{$field1} ...
  3. or download this
    foreach (qw(ab cd ef ... yz)) { ??? };