From: Peter Rabbitson <ribasushi@cpan.org>
Date: Fri, 8 Oct 2010 11:49:47 +0000 (+0000)
Subject: Extra benchmark
X-Git-Tag: v0.09007~9
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=71eea8e1013a2e38a79e56b43d41f1748b70ba1c;p=p5sagit%2FClass-Accessor-Grouped.git

Extra benchmark
---

diff --git a/benchmark/accessors b/benchmark/accessors
index 74716b2..16e4f01 100644
--- a/benchmark/accessors
+++ b/benchmark/accessors
@@ -7,6 +7,7 @@ BEGIN {
     Class::XSAccessor
     Class::Accessor::Fast
     Class::Accessor::Fast::XS
+    Class::XSAccessor::Compat
     Moose
     Mouse
   /) {
@@ -48,6 +49,12 @@ use Benchmark qw/:hireswallclock cmpthese/;
     __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 @@ my $tasks = {
 #  }
 };
 
-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');
 }