Re^3: xs modifying passed value

[bulk88]

in reply to Re^2: xs modifying passed value
in thread xs modifying passed value

Some people for param lists do,

my %localdog;
if(@_ == 2  && ref($_[1]) eq 'HASH') {
#named params
     my $hvref = $_[1];
     $localdog{name} = $hvref->{name};
     $localdog{color} = $hvref->{color};
}
else{
     $localdog{name} = $_[1];
     $localdog{color} = $_[2];
}