From: Matt S Trout <mst@shadowcat.co.uk>
Date: Fri, 22 Jun 2007 01:10:12 +0000 (+0000)
Subject: restore mk_classaccessor
X-Git-Tag: v0.08010~139
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=commitdiff_plain;h=77d518d13cfe80f3efdfeb0d52f1b3de10fcb7e4;hp=6fa7228e957396834c14599dbf44394018c21164

restore mk_classaccessor
---

diff --git a/Changes b/Changes
index 09b0f6f..da0ffea 100644
--- a/Changes
+++ b/Changes
@@ -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
diff --git a/lib/DBIx/Class.pm b/lib/DBIx/Class.pm
index e392b8f..42742f2 100644
--- a/lib/DBIx/Class.pm
+++ b/lib/DBIx/Class.pm
@@ -6,10 +6,15 @@ use warnings;
 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' }