From: gfx <g.psy.va@gmail.com>
Date: Thu, 13 Aug 2009 07:59:55 +0000 (+0900)
Subject: Default accessor generators to use inline generators
X-Git-Tag: 0.92_01~25^2~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9f4ddc6e70f5666a21f99c0d5b682140175feafc;p=gitmo%2FClass-MOP.git

Default accessor generators to use inline generators
---

diff --git a/lib/Class/MOP/Attribute.pm b/lib/Class/MOP/Attribute.pm
index 8426d9c..a51bc2e 100644
--- a/lib/Class/MOP/Attribute.pm
+++ b/lib/Class/MOP/Attribute.pm
@@ -402,6 +402,8 @@ sub install_accessors {
     my $inline = shift;
     my $class  = $self->associated_class;
 
+    $inline = 1 unless defined $inline;
+
     $class->add_method(
         $self->_process_accessors('accessor' => $self->accessor(), $inline)
     ) if $self->has_accessor();
diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index 6f1dd31..8a0d0ae 100644
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -940,7 +940,7 @@ sub _immutable_options {
     my ( $self, @args ) = @_;
 
     return (
-        inline_accessors   => 1,
+        inline_accessors   => 0,
         inline_constructor => 1,
         inline_destructor  => 0,
         debug              => 0,