[Bast-commits] r4246 - DBIx-Class/0.08/branches/bindtype_ensure_connected/lib/DBIx/Class/Storage

[jnapiorkowski at dev.catalyst.perl.org]

Author: jnapiorkowski
Date: 2008-04-01 02:21:52 +0100 (Tue, 01 Apr 2008)
New Revision: 4246

Modified:
   DBIx-Class/0.08/branches/bindtype_ensure_connected/lib/DBIx/Class/Storage/DBI.pm
Log:
simplified stub method

Modified: DBIx-Class/0.08/branches/bindtype_ensure_connected/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/branches/bindtype_ensure_connected/lib/DBIx/Class/Storage/DBI.pm	2008-03-28 12:52:08 UTC (rev 4245)
+++ DBIx-Class/0.08/branches/bindtype_ensure_connected/lib/DBIx/Class/Storage/DBI.pm	2008-04-01 01:21:52 UTC (rev 4246)
@@ -1135,7 +1135,7 @@
   foreach my $column ($source->columns) {
   
     my $data_type = $source->column_info($column)->{data_type} || '';
-    $bind_attributes->{$column} = $self->bind_attribute_by_data_type($data_type, $source)
+    $bind_attributes->{$column} = $self->bind_attribute_by_data_type($data_type, $source->storage)
      if $data_type;
   }
 
@@ -1299,10 +1299,10 @@
 =cut
 
 sub bind_attribute_by_data_type {
-  my ($self, $data_type, $source) = @_;return;
-  if($source) {
-    $source->storage->ensure_connected;
-    return $source->storage->bind_attribute_by_data_type($data_type)
+  my ($self, $data_type, $storage) = @_;
+  if($storage) {
+    $storage->ensure_connected;
+    return $storage->bind_attribute_by_data_type($data_type)
   }
   return;
 }