Help for this page

Select Code to Download


  1. or download this
    sub lookup {
      die unless wantarray; # call me in list context only
    ...
      my @results = map { lookup($_) } @_;
      return join ",", @results;
    }
    
  2. or download this
    use Memoize;
    memoize('lookup');
    ...
      unmemoize('lookup');
      memoize('lookup');
    }