From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sat, 13 Nov 2010 01:17:33 +0000 (+0100)
Subject: More attrs to bench
X-Git-Tag: 0.009001~30
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2c40fd5a30a70f0aff39c74afb0306ca90ff2133;p=gitmo%2FMoo.git

More attrs to bench
---

diff --git a/benchmark/object_factory b/benchmark/object_factory
index 14b0c40..f929e8f 100644
--- a/benchmark/object_factory
+++ b/benchmark/object_factory
@@ -41,6 +41,8 @@ $usage->die if $opts->{help};
 
 my $attrs_to_bench = {
   plain =>              q|is => 'rw'                                                      |,
+  ro =>                 q|is => 'ro'                                                      |,
+  default =>            q|is => 'rw', default => sub { {} }                               |,
   lazy_default =>       q|is => 'rw', lazy => 1, default => sub { {} }                    |,
   lazy_default_qsub =>  q|is => 'rw', lazy => 1, default => Sub::Quote::quote_sub q{ {} } |,
 };