Select Code to Download

sub hmap(&@) {
   my $cb = shift;
...
      $cb->();
   }
}

... = hmap { our($k,$v); ... } ...;

... = hmap { my($k,$v)=@_; ... } ...;

package Hash::Map;

...
sub hgrep(&@) { ... }

1;