| … | |
… | |
| 201 | |
201 | |
| 202 | $self->{driver}->connect("rw"); |
202 | $self->{driver}->connect("rw"); |
| 203 | my $result = $self->{driver}->dbi()->do($stmt); |
203 | my $result = $self->{driver}->dbi()->do($stmt); |
| 204 | $self->{driver}->disconnect(); |
204 | $self->{driver}->disconnect(); |
| 205 | croak "failed to DELETE: $DBI::errstr" unless defined $result; |
205 | croak "failed to DELETE: $DBI::errstr" unless defined $result; |
| 206 | |
|
|
| 207 | if ($result > 1) { |
|
|
| 208 | warn "danger! deleted more than one record!"; |
|
|
| 209 | } |
|
|
| 210 | |
206 | |
| 211 | return $result; |
207 | return $result; |
| 212 | } |
208 | } |
| 213 | |
209 | |
| 214 | ################################################################################ |
210 | ################################################################################ |