return 'MySQL';
}
+sub _svp_begin {
+ my ($self, $dbh, $name) = @_;
+
+ $dbh->do("SAVEPOINT $name");
+}
+
+sub _svp_release {
+ my ($self, $dbh, $name) = @_;
+
+ $dbh->do("RELEASE SAVEPOINT $name");
+}
+
+sub _svp_rollback {
+ my ($self, $dbh, $name) = @_;
+
+ $dbh->do("ROLLBACK TO SAVEPOINT $name")
+}
+
1;
=head1 NAME