src/pl/plperl/expected/plperl_shared.out

   1 -- test plperl.on_plperl_init via the shared hash
   2 -- (must be done before plperl is first used)
   3 -- Avoid need for custom_variable_classes = 'plperl'
   4 LOAD 'plperl';
   5 -- testing on_plperl_init gets run, and that it can alter %_SHARED
   6 SET plperl.on_plperl_init = '$_SHARED{on_init} = 42';
   7 -- test the shared hash
   8 create function setme(key text, val text) returns void language plperl as $$
   9
  10   my $key = shift;
  11   my $val = shift;
  12   $_SHARED{$key}= $val;
  13
  14 $$;
  15 create function getme(key text) returns text language plperl as $$
  16
  17   my $key = shift;
  18   return $_SHARED{$key};
  19
  20 $$;
  21 select setme('ourkey','ourval');
  22  setme
  23 -------
  24
  25 (1 row)
  26
  27 select getme('ourkey');
  28  getme
  29 --------
  30  ourval
  31 (1 row)
  32
  33 select getme('on_init');
  34  getme
  35 -------
  36  42
  37 (1 row)
  38