| 270 |
|
|
| 271 |
return $self->{'explained'}->{$table}->{cols_notpk}; |
return $self->{'explained'}->{$table}->{cols_notpk}; |
| 272 |
} |
} |
| 273 |
|
|
| 274 |
|
# get active triggers |
| 275 |
|
sub get_triggers { |
| 276 |
|
my $self = shift; |
| 277 |
|
|
| 278 |
|
# find table oid |
| 279 |
|
my $sql = " |
| 280 |
|
SELECT tgname FROM pg_trigger |
| 281 |
|
WHERE tgname not like 'pg_%' and tgenabled IS TRUE |
| 282 |
|
"; |
| 283 |
|
|
| 284 |
|
my $sth = $self->{'dbh'}->prepare($sql); |
| 285 |
|
$sth->execute() || die; |
| 286 |
|
|
| 287 |
|
my @triggers; |
| 288 |
|
|
| 289 |
|
while (my ($tr) = $sth->fetchrow_array()) { |
| 290 |
|
push @triggers,$tr; |
| 291 |
|
} |
| 292 |
|
$sth->finish(); |
| 293 |
|
|
| 294 |
|
return @triggers; |
| 295 |
|
} |
| 296 |
|
|
| 297 |
1; |
1; |
Parent Directory
| 
Revision Log
| 
Patch