plPerlNG (Next Generation) provides facilities to write user-defined functions and triggers in Perl for the PostgreSQL database. It is available under the PostgreSQL/BSD license.
CREATE OR REPLACE FUNCTION immortal() RETURNS trigger AS '
if ($_TD->{"old"}{"v"} eq $_TD->{"args"}{0}){
return "SKIP"; # Skip DELETE command
} else {
return; # Proceed DELETE command
}
' LANGUAGE 'plperl';
|
Copyright © 2000-2010 Command Prompt, Inc. All Rights Reserved. All trademarks property of their respective owners.