src/pl/plperl/expected/plperl_shared.out

   1 -- test the shared hash
   2 create function setme(key text, val text) returns void language plperl as $$
   3
   4   my $key = shift;
   5   my $val = shift;
   6   $_SHARED{$key}= $val;
   7
   8 $$;
   9 create function getme(key text) returns text language plperl as $$
  10
  11   my $key = shift;
  12   return $_SHARED{$key};
  13
  14 $$;
  15 select setme('ourkey','ourval');
  16  setme
  17 -------
  18
  19 (1 row)
  20
  21 select getme('ourkey');
  22  getme
  23 --------
  24  ourval
  25 (1 row)
  26