Postgresql clone schema function

clone_schema

CREATE OR REPLACE FUNCTION clone_schema(source_schema text, dest_schema text) RETURNS void AS
$BODY$
DECLARE 
  objeto text;
  buffer text;
BEGIN
    EXECUTE 'DROP SCHEMA IF EXISTS ' || dest_schema || ' CASCADE' ;
    EXECUTE 'CREATE SCHEMA ' || dest_schema ;
    EXECUTE 'COMMENT ON SCHEMA ' || dest_schema || ' IS ''Clone @ ' || to_char(current_timestamp, 'YYYY/MM/DD HH:MI:SS')  || ''''; 
 
    FOR objeto IN
        SELECT table_name::text FROM information_schema.TABLES WHERE table_schema = source_schema
    LOOP        
        buffer := dest_schema || '.' || objeto;
        EXECUTE 'CREATE TABLE ' || buffer || ' (LIKE ' || source_schema || '.' || objeto || ' INCLUDING CONSTRAINTS INCLUDING INDEXES INCLUDING DEFAULTS)';
        EXECUTE 'INSERT INTO ' || buffer || '(SELECT * FROM ' || source_schema || '.' || objeto || ')';
    END LOOP;
 
END;
$BODY$
LANGUAGE plpgsql VOLATILE;