Select Code to Download

print "not ref:\n";
test(dogs=>'bark', cats=>'miaow');
...
  ref($_[0]) ? $params = shift : $params = {@_};
  print Dumper($params);
}

not ref:
$VAR1 = {
...
          'HASH(0x81194e0)' => undef
        };

not ref:
hello
...
          'dogs' => 'bark',
          'cats' => 'miaow'
        };

  if(ref($_[0])){
    $params = shift;
...
  else{
    $params = {@_};
  }

not ref:
$VAR1 = {
...
          'cats' => 'miaow',
          'dogs' => 'bark'
        };