[Bast-commits] r3520 - in trunk/DBIx-Class: . lib/DBIx

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2007-06-22 02:10:12 +0100 (Fri, 22 Jun 2007)
New Revision: 3520

Modified:
   trunk/DBIx-Class/Changes
   trunk/DBIx-Class/lib/DBIx/Class.pm
Log:
restore mk_classaccessor

Modified: trunk/DBIx-Class/Changes
===================================================================
--- trunk/DBIx-Class/Changes	2007-06-20 06:39:49 UTC (rev 3519)
+++ trunk/DBIx-Class/Changes	2007-06-22 01:10:12 UTC (rev 3520)
@@ -1,5 +1,7 @@
 Revision history for DBIx::Class
 
+        - Restored mk_classaccessor method for compatibility
+
 0.08002 2007-06-20 06:10:00
         - add scope guard to Row::insert to ensure rollback gets called
         - more heuristics in Row::insert to try and get insert order right

Modified: trunk/DBIx-Class/lib/DBIx/Class.pm
===================================================================
--- trunk/DBIx-Class/lib/DBIx/Class.pm	2007-06-20 06:39:49 UTC (rev 3519)
+++ trunk/DBIx-Class/lib/DBIx/Class.pm	2007-06-22 01:10:12 UTC (rev 3520)
@@ -6,12 +6,17 @@
 use vars qw($VERSION);
 use base qw/DBIx::Class::Componentised Class::Accessor::Grouped/;
 
+
 sub mk_classdata { 
-    my $self = shift;
-    $self->mk_group_accessors('inherited', $_[0]); 
-    $self->set_inherited(@_) if @_ > 1;
+  shift->mk_classaccessor(@_);
 }
 
+sub mk_classaccessor {
+  my $self = shift;
+  $self->mk_group_accessors('inherited', $_[0]); 
+  $self->set_inherited(@_) if @_ > 1;
+}
+
 sub component_base_class { 'DBIx::Class' }
 
 # Always remember to do all digits for the version even if they're 0