--- Pg/Scheme.pm	2003/08/12 20:38:06	1.2
+++ Pg/Scheme.pm	2003/08/15 22:52:05	1.3
@@ -270,4 +270,28 @@
 
 	return $self->{'explained'}->{$table}->{cols_notpk};
 }
+
+# get active triggers
+sub get_triggers {
+	my $self = shift;
+
+	# find table oid
+	my $sql = "
+	SELECT tgname FROM pg_trigger
+		WHERE tgname not like 'pg_%' and tgenabled IS TRUE
+	";
+
+	my $sth = $self->{'dbh'}->prepare($sql);
+	$sth->execute() || die;
+
+	my @triggers;
+
+	while (my ($tr) = $sth->fetchrow_array()) {
+		push @triggers,$tr;
+	}
+	$sth->finish();
+
+	return @triggers;
+}
+
 1;