Lo, doth everything now use resultset_instance

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Table.pm

diff --git a/lib/DBIx/Class/Table.pm b/lib/DBIx/Class/Table.pm
index 349d163..e322a0c 100644 (file)
--- a/lib/DBIx/Class/Table.pm
+++ b/lib/DBIx/Class/Table.pm
@@ -62,12 +62,16 @@ sub add_columns {
   $class->_mk_column_accessors(@cols);
 }
 
-sub resultset {
+sub resultset_instance {
   my $class = shift;
+  $class->next::method($class->construct_resultset);
+}
 
+sub construct_resultset {
+  my $class = shift;
   my $rs_class = $class->_resultset_class;
   eval "use $rs_class;";
-  my $rs = $rs_class->new($class, @_);
+  return $rs_class->new($class);
 }
 
 =item search_like
@@ -150,7 +154,10 @@ sub column_info {
                                                                                 
 =cut                                                                            
 
-sub columns { return keys %{shift->_columns}; }
+sub columns {
+  die "columns() is a read-only accessor, did you mean add_columns()?" if (@_ > 1);
+  return keys %{shift->_columns};
+}
 
 1;