[Catalyst-commits] r7505 - Catalyst-Runtime/5.80/branches/moose/lib/Catalyst

[groditi at dev.catalyst.perl.org]

Author: groditi
Date: 2008-03-15 05:12:50 +0000 (Sat, 15 Mar 2008)
New Revision: 7505

Modified:
   Catalyst-Runtime/5.80/branches/moose/lib/Catalyst/AttrContainer.pm
Log:
AttrContainer no longer ISA C::D::I but still uses it until I figure what to do about ClassAttribute things

Modified: Catalyst-Runtime/5.80/branches/moose/lib/Catalyst/AttrContainer.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/moose/lib/Catalyst/AttrContainer.pm	2008-03-15 05:08:08 UTC (rev 7504)
+++ Catalyst-Runtime/5.80/branches/moose/lib/Catalyst/AttrContainer.pm	2008-03-15 05:12:50 UTC (rev 7505)
@@ -1,11 +1,19 @@
 package Catalyst::AttrContainer;
 
-use strict;
-use base qw/Class::Accessor::Fast Class::Data::Inheritable/;
+use Moose;
+#use strict;
+#use base qw/Class::Accessor::Fast Class::Data::Inheritable/;
 
 use Catalyst::Exception;
 use NEXT;
 
+#dont want to ISA a C::D::I
+use Class::Data::Inheritable;
+{
+  my $mk_classdata = Class::Data::Inheritable->can('mk_classdata');
+  __PACKAGE__->meta->add_method(mk_classdata => $mk_classdata);
+}
+
 __PACKAGE__->mk_classdata($_) for qw/_attr_cache _action_cache/;
 __PACKAGE__->_attr_cache( {} );
 __PACKAGE__->_action_cache( [] );
@@ -29,7 +37,7 @@
 
 =head1 DESCRIPTION
 
-This class sets up the code attribute cache.  It's a base class for 
+This class sets up the code attribute cache.  It's a base class for
 L<Catalyst::Controller>.
 
 =head1 METHODS