CREATE OR REPLACE FUNCTION allow_on_condition() RETURNS trigger AS
$$
	BEGIN { strict->import(); }
	
	use lib '<LIBPATH>/contrib'; use lib '<LIBPATH>/extensions'; use CheckTrigger;
	
	my $minargc = 1;
	my $return_condition = 0;
# <ASSERT>	$minargc += 2;
# <ASSERT>	$return_condition = 1;

	# should be called as a row-level trigger
	die "should be called as a row-level trigger" unless ($_TD->{level} eq 'ROW');
	
	# check for the correct number of arguments
	die "$_TD->{name}, wrong number of arguments" unless ($_TD->{argc} >= $minargc);
	
# <ASSERT>	my $assert = shift @{$_TD->{args}};
# <ASSERT>	my $error_text = shift @{$_TD->{args}};
# do a poor-man's quote_nullable for 8.3 and below
# <ASSERT>	$assert = PLPerl::CheckTrigger::pg_quote_nullable($assert);
# <ASSERT>	$error_text = PLPerl::CheckTrigger::pg_quote_nullable($error_text);
	
	my $condition = shift @{$_TD->{args}};
	my @args = @{$_TD->{args}};
		
	my $ch = new PLPerl::CheckTrigger($_TD);
	my $result;
	
	eval {
		$result = $ch->check_condition($condition, $return_condition, @args);
	};
	die $@ if ($@);

# <ASSERT>	my $returned_condition = $result;
# <ASSERT>	my $query = "SELECT tools.assert($assert, ($returned_condition), $error_text)";
# <ASSERT>	my $rv = spi_exec_query($query);
# <ASSERT>	return;
	
	if (!$result) {
        die $ch->{errmsg};
    }
	
	return;

$$ LANGUAGE plperlu;