restore mk_classaccessor

diff --git a/Changes b/Changes
index 09b0f6f..da0ffea 100644 (file)
--- 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 (file)
--- 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' }