http://www.perlmonks.org?node_id=1026253


in reply to Re^4: How to return values from a hash?
in thread How to return values from a hash?

try changing 
 } elsif ($rfv == 'HASH') {

[download]
to 
 } elsif ($rfv eq 'HASH') {

[download]
poj

Replies are listed 'Best First'.
Re^6: How to return values from a hash?
by perl-diddler (Chaplain) on Mar 30, 2013 at 14:46 UTC
    Sorry, that was a last minute change. In order to simplify the code for inclusion here, I left out a trivial optimization where I convert HASH to an integer: 
    
  use constant Array  => 1;
  use constant Hash   => Array << 1;
  our %_typemap=(ARRAY=>Array, HASH=>Hash);


  sub _Var ($$$;$) {                          # Wrkhorse code for manu
+fctrd Vars
    my ($__, $p, $vn, $wa)=@$_;
    $_=$__;                                   # must not trash '$_'
    my $v   = $p->{$vn};                      # value
    my $rfv = ref $v;                         # type(ref) of var
    my $rfvi  = $_typemap{$rfv} || 0;
    my ($arg, $addrof);
    if ($wa && $wa eq '&#945;') { $wa=undef, $addrof=1 }
    if (@_ && !$addrof)  {                    # arg for "setter"
      $arg = shift;
      my $refarg = ref $arg;                  # ref of the arg
      unless ( defined($p->{$vn}) && defined $arg ){  # unless both de
+fined 
        $p->{$vn} = $arg; 
      } elsif ($rfvi == Array) {              ## if type(var)==ARRAY, 
+1 param
        if ($refarg ne "ARRAY" ||  (@$arg || @$v)) {
          push @{$p->{$vn}}, $_[0];           ## convert to "push"
        }
      } elsif ($rfvi == Hash) {

    [download]
    I tried to cut down the amount of code included by cutting out the integer thing...sorry. I didn't want to get dinged for not trying to cut things down...
[reply]
[d/l]

In Section Seekers of Perl Wisdom