Re-arranged the add_columns code to be a bit clearer

diff --git a/lib/DBIx/Class/ResultSource.pm b/lib/DBIx/Class/ResultSource.pm
index a7a802b..c122ddb 100644 (file)
--- a/lib/DBIx/Class/ResultSource.pm
+++ b/lib/DBIx/Class/ResultSource.pm
@@ -45,7 +45,12 @@ sub add_columns {
     if !$self->_ordered_columns;
   push @{ $self->_ordered_columns }, @cols;
   while (my $col = shift @cols) {
-    $self->_columns->{$col} = (ref $cols[0] ? shift : {});
+
+    my $column_info = ref $cols[0] ? shift : {};
+      # If next entry is { ... } use that for the column info, if not
+      # use an empty hashref
+
+    $self->_columns->{$col} = $column_info;
   }
 }