 
 my $settings = Load($settings_yaml);
 elog NOTICE, Dump($settings) if $_SHARED{debug};
-elog ERROR, "In dbi_link.add_dbi_connection_environment, settings is a >@{[ref($settings)]}<, not an array reference"
+elog ERROR, "In dbi_link.add_dbi_connection_environment, settings is a >@{[
+    ref($settings)
+]}<, not an array reference"
     unless (ref($settings) eq 'ARRAY');
 my $count = 0;
 foreach my $setting (@$settings) {

                )->{rows}[0]{search_path}
            )
        );
    spi_exec_query("UPDATE pg_catalog.pg_settings SET setting = '$search_path' WHERE name = 'search_path'");

    spi_exec_query("DROP SCHEMA $identifier CASCADE");
}

return 1;
$$;

COMMENT ON FUNCTION dbi_link.is_yaml(TEXT) IS $$Pretty self-explanatory ;)$$;

CREATE DOMAIN yaml AS TEXT
    CHECK (
        dbi_link.is_yaml(VALUE)
    );

COMMENT ON DOMAIN dbi_link.yaml IS $$Pretty self-explanatory ;)$$;

CREATE OR REPLACE FUNCTION dbi_link.is_data_source(TEXT)
RETURNS boolean
STRICT
LANGUAGE plperlu
AS $$
use DBI 1.43;
my @args = DBI->parse_dsn($_[0]);
if (defined @args) {
    return 1;
