unixtimeをとれるようにした

dbdにアクセスできるようにした
updateの挙動かえた（まだ微調整）

git-svn-id: http://svn.coderepos.org/share/lang/perl/DBIx-Skinny/trunk@28863 d0d07461-0603-4401-acd4-de1884942a52

lib/DBIx/Skinny.pm

@@ -42,7 +42,7 @@ sub import {
 
         my @functions = qw/
             schema profiler
-            dbh _connect connect_info _dbd_type
+            dbh dbd _connect connect_info _dbd_type
             call_schema_trigger
             do resultset search single search_by_sql count
             data2itr find_or_new
@@ -94,6 +94,7 @@ sub _connect {
     $class->attribute->{dbh};
 }
 
+sub dbd { shift->attribute->{dbd} }
 sub dbh { shift->_connect }
 
 sub _dbd_type {
@@ -315,17 +316,12 @@ sub update {
     my $sql = "UPDATE $table SET " . join(', ', @set) . ' ' . $stmt->as_sql_where;
 
     $class->profiler($sql, \@bind);
-    $class->_execute($sql, \@bind);
+    my $sth = $class->dbh->prepare($sql);
+    my $rows = $sth->execute(@bind);
 
-    for my $col (@{$class->schema->schema_info->{$table}->{columns}}) {
-        $stmt->add_select($col);
-    }
-    $stmt->from([$table]);
-    my $row = $stmt->retrieve->first;
-
-    $class->call_schema_trigger('post_update', $table, $row);
+    $class->call_schema_trigger('post_update', $table, $rows);
 
-    return $row;
+    return $rows;
 }
 
 sub delete {

lib/DBIx/Skinny/DBD/SQLite.pm

@@ -4,6 +4,8 @@ use warnings;
 
 sub last_insert_id { $_[1]->func('last_insert_rowid') }
 
+sub sql_for_unixtime { return time() }
+
 sub bulk_insert {
     my ($skinny, $table, $args) = @_;
 

lib/DBIx/Skinny/DBD/mysql.pm

@@ -4,6 +4,10 @@ use warnings;
 
 sub last_insert_id { $_[2]->{mysql_insertid} || $_[2]->{insertid} }
 
+sub sql_for_unixtime {
+    return "UNIX_TIMESTAMP()";
+}
+
 sub bulk_insert {
     my ($skinny, $table, $args) = @_;
 

t/102_update.t

@@ -18,7 +18,8 @@ describe 'update test' => run {
     };
 
     test 'update mock_basic data' => run {
-        my $row = Mock::Basic->update('mock_basic',{name => 'python'},{id => 1});
+        ok +Mock::Basic->update('mock_basic',{name => 'python'},{id => 1});
+        my $row = Mock::Basic->single('mock_basic',{id => 1});
 
         isa_ok $row, 'DBIx::Skinny::Row';
         is $row->name, 'python';
@@ -28,8 +29,9 @@ describe 'update test' => run {
         my $row = Mock::Basic->single('mock_basic',{id => 1});
         is $row->name, 'python';
 
-        $row = $row->update({name => 'perl'});
-        is $row->name, 'perl';
+        ok $row->update({name => 'perl'});
+        my $new_row = Mock::Basic->single('mock_basic',{id => 1});
+        is $new_row->name, 'perl';
     };
 };
 

t/106_inflate.t

@@ -30,7 +30,8 @@ describe 'inflate/deflate test' => run {
     test 'update mock_inflate data' => run {
         my $name = Mock::Inflate::Name->new(name => 'ruby');
 
-        my $row = Mock::Inflate->update('mock_inflate',{name => $name},{id => 1});
+        ok +Mock::Inflate->update('mock_inflate',{name => $name},{id => 1});
+        my $row = Mock::Inflate->single('mock_inflate',{id => 1});
 
         isa_ok $row, 'DBIx::Skinny::Row';
         isa_ok $row->name, 'Mock::Inflate::Name';

t/107_utf8.t

@@ -25,7 +25,8 @@ describe 'utf8 test' => run {
     };
 
     test 'update mock_utf8 data' => run {
-        my $row = Mock::UTF8->update('mock_utf8',{name => 'るびー'},{id => 1});
+        ok +Mock::UTF8->update('mock_utf8',{name => 'るびー'},{id => 1});
+        my $row = Mock::UTF8->single('mock_utf8',{id => 1});
 
         isa_ok $row, 'DBIx::Skinny::Row';
         ok utf8::is_utf8($row->name);

t/108_trigger.t

@@ -64,13 +64,12 @@ describe 'trigger test' => run {
     };
 
     test 'pre_update/post_update' => run {
-        my $row = Mock::Trigger->update('mock_trigger_pre',{});
-        isa_ok $row, 'DBIx::Skinny::Row';
-        is $row->name, 'pre_update';
+        ok +Mock::Trigger->update('mock_trigger_pre',{});
 
         my $p_row = Mock::Trigger->single('mock_trigger_post',{id => 1});
         isa_ok $p_row, 'DBIx::Skinny::Row';
         is $p_row->name, 'post_update';
+
     };
 
     test 'pre_delete/post_delete' => run {

t/117_data2row.t

@@ -58,11 +58,7 @@ describe 'data to iterator object' => run {
         isa_ok $row->name, 'Mock::Inflate::Name';
 
         my $new_name = Mock::Inflate::Name->new(name => 'c++');
-        my $new_row = $row->update({name => $new_name});
-
-        isa_ok $new_row, 'DBIx::Skinny::Row';
-        isa_ok $new_row->name, 'Mock::Inflate::Name';
-        is $new_row->name, 'c++';
+        ok $row->update({name => $new_name});
     };
 };