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 (file)
--- 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 (file)
--- 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,