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

Public Scratchpad

Download, Select Code To D/L

---

斐 &hello 你好

package Petal::Hash::Toref;

sub process
{
  my $class = shift;
  my $hash  = shift;
  my $args  = shift;

  return [$hash->fetch ($args)];
}
[download]