Datenbankspezifischer Code
sub _build_schemadump_functions {
my ($self,$schema) = @_;
my $dbh = $self->dbh;
my $sth_functions = $dbh->prepare(q[SELECT pg_get_functiondef(x.oid)
FROM pg_catalog.pg_proc x
LEFT JOIN pg_namespace n ON n.oid = x.pronamespace
WHERE proisagg = FALSE
AND proiswindow = FALSE
AND n.nspname LIKE ?
AND n.nspname <> 'pg_catalog'
ORDER BY 1]);
$sth_functions->execute($schema);
my @functions;
while (my ($index) = $sth_functions->fetchrow_array) {
push(@functions,$index);
}
return \@functions
};