Changeset 210

Timestamp:

05/23/06 18:58:57 (4 years ago)

Author:

btrott

Message:

The very beginning of portable error codes across databases.

Added Data::ObjectDriver::Errors class, which currently only defines one
error. Along with some tests, etc.

Location:

trunk

Files:

• lib/Data/ObjectDriver/Driver/DBD.pm (modified) (1 diff)
• lib/Data/ObjectDriver/Driver/DBD/SQLite.pm (modified) (2 diffs)
• lib/Data/ObjectDriver/Driver/DBD/mysql.pm (modified) (1 diff)
• lib/Data/ObjectDriver/Driver/DBI.pm (modified) (2 diffs)
• lib/Data/ObjectDriver/Errors.pm (added)
• t/06-errors.t (added)
• t/lib/ErrorTest.pm (added)
• t/schemas/error_test.sql (added)

trunk/lib/Data/ObjectDriver/Driver/DBD.pm

@@ -21 +21 @@
 sub fetch_id { }
 sub offset_implemented { 1 }
+sub map_error_code { }
 
 1;

trunk/lib/Data/ObjectDriver/Driver/DBD/SQLite.pm

@@ -4 +4 @@
 use strict;
 use warnings;
+use base qw( Data::ObjectDriver::Driver::DBD );
 
-use base qw( Data::ObjectDriver::Driver::DBD );
+use Data::ObjectDriver::Errors;
 
 sub fetch_id { $_[2]->func('last_insert_rowid') }
@@ -19 +20 @@
     }
     return;
+}
+
+sub map_error_code {
+    my $dbd = shift;
+    my($code, $msg) = @_;
+    if ($msg && $msg =~ /not unique/) {
+        return Data::ObjectDriver::Errors->UNIQUE_CONSTRAINT;
+    } else {
+        return undef;
+    }
 }
 

trunk/lib/Data/ObjectDriver/Driver/DBD/mysql.pm

@@ -4 +4 @@
 use strict;
 use warnings;
-
 use base qw( Data::ObjectDriver::Driver::DBD );
 
 use Carp qw( croak );
+use Data::ObjectDriver::Errors;
+
+use constant ERROR_MAP => {
+    1062 => Data::ObjectDriver::Errors->UNIQUE_CONSTRAINT,
+};
 
 sub fetch_id { $_[3]->{mysql_insertid} || $_[3]->{insertid} }
 
+sub map_error_code {
+    my $dbd = shift;
+    my($code, $msg) = @_;
+    return ERROR_MAP->{$code};
+}
+
 1;

trunk/lib/Data/ObjectDriver/Driver/DBI.pm

@@ -9 +9 @@
 use DBI;
 use Carp ();
+use Data::ObjectDriver::Errors;
 use Data::ObjectDriver::SQL;
 use Data::ObjectDriver::Driver::DBD;
@@ -518 +519 @@
 }
 
+sub last_error {
+    my $driver = shift;
+    return $driver->dbd->map_error_code($DBI::err, $DBI::errstr);
+}
+
 1;