[Bast-commits] r8134 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/ADO

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-12-17 16:44:34 +0000 (Thu, 17 Dec 2009)
New Revision: 8134

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/ADO/Microsoft_SQL_Server.pm
Log:
cleanup source_bind_attributes for ADO

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/ADO/Microsoft_SQL_Server.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/ADO/Microsoft_SQL_Server.pm	2009-12-17 14:03:15 UTC (rev 8133)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/ADO/Microsoft_SQL_Server.pm	2009-12-17 16:44:34 UTC (rev 8134)
@@ -15,14 +15,12 @@
 }
 
 sub source_bind_attributes {
-  my ($self, $source) = @_;
+  my $self = shift;
+  my ($source) = @_;
 
-  my $bind_attributes;
-  foreach my $column ($source->columns) {
+  my $bind_attributes = $self->next::method(@_);
 
-    my $data_type = $source->column_info($column)->{data_type} || '';
-    $bind_attributes->{$column} = $self->bind_attribute_by_data_type($data_type)
-      if $data_type;
+  foreach my $column ($source->columns) {
     $bind_attributes->{$column}{ado_size} ||= 8000; # max VARCHAR
   }