[Bast-commits] r9743 - Class-Accessor-Grouped/trunk/benchmark

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-10-08 12:49:47 +0100 (Fri, 08 Oct 2010)
New Revision: 9743

Modified:
   Class-Accessor-Grouped/trunk/benchmark/accessors
Log:
Extra benchmark

Modified: Class-Accessor-Grouped/trunk/benchmark/accessors
===================================================================
--- Class-Accessor-Grouped/trunk/benchmark/accessors	2010-09-29 16:55:23 UTC (rev 9742)
+++ Class-Accessor-Grouped/trunk/benchmark/accessors	2010-10-08 11:49:47 UTC (rev 9743)
@@ -7,6 +7,7 @@
     Class::XSAccessor
     Class::Accessor::Fast
     Class::Accessor::Fast::XS
+    Class::XSAccessor::Compat
     Moose
     Mouse
   /) {
@@ -48,6 +49,12 @@
     __PACKAGE__->mk_accessors ('caf_xs');
   }
 
+  {
+    require Class::XSAccessor::Compat;
+    local @ISA = 'Class::XSAccessor::Compat';
+    __PACKAGE__->mk_accessors ('caf_xsa');
+  }
+
   sub handmade {
     @_ > 1 ? $_[0]->{handmade} = $_[1] : $_[0]->{handmade};
   }
@@ -91,7 +98,7 @@
 #  }
 };
 
-for (qw/CAG CAG_XS CAF CAF_XS XSA HANDMADE/) {
+for (qw/CAG CAG_XS CAF CAF_XS CAF_XSA XSA HANDMADE/) {
   _add_task ($tasks, $_, lc($_), 'base');
 }