contrib/hstore_plperl/sql/hstore_plperl.sql

   1 CREATE EXTENSION hstore_plperl CASCADE;
   2
   3 SELECT transforms.udt_schema, transforms.udt_name,
   4        routine_schema, routine_name,
   5        group_name, transform_type
   6 FROM information_schema.transforms JOIN information_schema.routines
   7      USING (specific_catalog, specific_schema, specific_name)
   8 ORDER BY 1, 2, 5, 6;
   9
  10
  11 -- test perl -> hstore
  12 CREATE FUNCTION test2() RETURNS hstore
  13 LANGUAGE plperl
  14 TRANSFORM FOR TYPE hstore
  15 AS $$
  16 $val = {a => 1, b => 'boo', c => undef};
  17 return $val;
  18 $$;
  19
  20 SELECT test2();
  21
  22
  23 -- test perl -> hstore[]
  24 CREATE FUNCTION test2arr() RETURNS hstore[]
  25 LANGUAGE plperl
  26 TRANSFORM FOR TYPE hstore
  27 AS $$
  28 $val = [{a => 1, b => 'boo', c => undef}, {d => 2}];
  29 return $val;
  30 $$;
  31
  32 SELECT test2arr();
  33
  34 -- check error cases
  35 CREATE OR REPLACE FUNCTION test2() RETURNS hstore
  36 LANGUAGE plperl
  37 TRANSFORM FOR TYPE hstore
  38 AS $$
  39 return 42;
  40 $$;
  41
  42 SELECT test2();
  43
  44 CREATE OR REPLACE FUNCTION test2() RETURNS hstore
  45 LANGUAGE plperl
  46 TRANSFORM FOR TYPE hstore
  47 AS $$
  48 return [1, 2];
  49 $$;
  50
  51 SELECT test2();
  52
  53
  54 DROP FUNCTION test2();
  55 DROP FUNCTION test2arr();
  56
  57
  58 DROP EXTENSION hstore_plperl;
  59 DROP EXTENSION hstore;
  60 DROP EXTENSION plperl;