 
 foreach my $sub (keys %$shared) {
     my $ref = ref($_SHARED{$sub});
-    elog NOTICE, $ref if $_SHARED{debug};
+    # elog NOTICE, $ref if $_SHARED{debug};
     if ($ref eq 'CODE') {
-        elog NOTICE, "$sub already set." if $_SHARED{debug};
+        # Do nothing.
+        # elog NOTICE, "$sub already set." if $_SHARED{debug};
     }
     else {
         elog NOTICE, "Setting $sub in \%_SHARED hash." if $_SHARED{debug};

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;
my @args = DBI->parse_dsn($_[0]);
if (defined @args) {
    return 1;


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"
    unless (ref($settings) eq 'ARRAY');
my $count = 0;
foreach my $setting (@$settings) {
