Tricks of the Wizards

A Templating System

Install Hash Variables Into the New Package

        sub package_install {
          my ($h, $p) = @_;
          my $n;
          while ($n = each %$h) {
            my $v = $h->{$n};
            *{$p . '::' . $n} = (ref $v ? $v : \$v);
          }
        }

Scalar context each just returns the keys one at a time