Re: Variable Substitution within NameSpace

[broquaint]

This code should give you the desired behaviour

Update: ah. I see CGI already has this method (even if it is implemented in a somewhat funky fashion).

use Symbol qw/ qualify_to_ref gensym /;

sub CGI::import_names {
  my($self, $pkg) = @_;
  
  $pkg .= '::'
    if substr($pkg, -2) ne '::';
  
  my $tbl = qualify_to_ref $pkg;
  for($self->param) {
    my @vals = $self->param($_);
    my $glob = gensym;
    
    *$glob = @vals > 1 ? \@vals : @vals == 1 ? \$vals[0] : \undef;
    *$tbl->{$_} = $glob;
  } 
}