Extra benchmark
Peter Rabbitson [Fri, 8 Oct 2010 11:49:47 +0000 (11:49 +0000)]
benchmark/accessors

index 74716b2..16e4f01 100644 (file)
@@ -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');
 }