Select Code to Download

for my $prop (qw [field1 field2 field3]) {
    eval sprintf <<'END', ($prop) x 3;
...
    }
END
}

for my $method (qw/ field1 field2 field3 /) {
  no strict 'refs';
...
    return $self->{$method};
  };
}

  for my $method (qw/ ... /) {
    my $sub = sub { the code ... };
    no strict 'refs';
    *$method = $sub;
  }