diff options
Diffstat (limited to 'perl-lib/PgCommitFest/DB.pm')
| -rw-r--r-- | perl-lib/PgCommitFest/DB.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/perl-lib/PgCommitFest/DB.pm b/perl-lib/PgCommitFest/DB.pm index 4719007..8eb3f80 100644 --- a/perl-lib/PgCommitFest/DB.pm +++ b/perl-lib/PgCommitFest/DB.pm @@ -41,6 +41,13 @@ sub delete { return $self->{'dbh'}->do($sql, {}, @bind); } +sub do { + my ($self, $sql, @bind) = @_; + warn $sql if $self->{'trace'}; + $self->{'dirty'} = 1; + return $self->{'dbh'}->do($sql, {}, @bind); +} + sub disconnect { my ($self) = @_; return $self->{'dbh'}->disconnect(); |