[Bast-commits] r3476 - branches/DBIx-Class-current/lib/DBIx/Class

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2007-06-06 22:27:39 +0100 (Wed, 06 Jun 2007)
New Revision: 3476

Modified:
   branches/DBIx-Class-current/lib/DBIx/Class/ResultSource.pm
Log:
make source_name rw again, users can shoot themselves in the foot if they want to

Modified: branches/DBIx-Class-current/lib/DBIx/Class/ResultSource.pm
===================================================================
--- branches/DBIx-Class-current/lib/DBIx/Class/ResultSource.pm	2007-06-05 14:46:58 UTC (rev 3475)
+++ branches/DBIx-Class-current/lib/DBIx/Class/ResultSource.pm	2007-06-06 21:27:39 UTC (rev 3476)
@@ -12,13 +12,12 @@
 
 __PACKAGE__->mk_group_accessors('simple' => qw/_ordered_columns
   _columns _primaries _unique_constraints name resultset_attributes
-  schema from _relationships column_info_from_storage source_info/);
+  schema from _relationships column_info_from_storage source_info
+  source_name/);
 
 __PACKAGE__->mk_group_accessors('component_class' => qw/resultset_class
   result_class/);
 
-__PACKAGE__->mk_group_ro_accessors('simple' => qw/source_name/);
-
 =head1 NAME
 
 DBIx::Class::ResultSource - Result source object