added new constructor method metaclass

[gitmo/Class-MOP.git] / lib / Class / MOP / Method / Accessor.pm

diff --git a/lib/Class/MOP/Method/Accessor.pm b/lib/Class/MOP/Method/Accessor.pm
index 1c0ea40..1f8eb04 100644 (file)
--- a/lib/Class/MOP/Method/Accessor.pm
+++ b/lib/Class/MOP/Method/Accessor.pm
@@ -30,7 +30,7 @@ sub new {
         body          => undef,
         # specific to this subclass
         attribute     => $options{attribute},
-        as_inline     => ($options{as_inline} || 0),
+        is_inline     => ($options{is_inline} || 0),
         accessor_type => $options{accessor_type},        
     } => $class;
     
@@ -48,7 +48,7 @@ sub new {
 
 sub associated_attribute { (shift)->{attribute}     }
 sub accessor_type        { (shift)->{accessor_type} }
-sub as_inline            { (shift)->{as_inline}     }
+sub is_inline            { (shift)->{is_inline}     }
 
 ## factory 
 
@@ -59,7 +59,7 @@ sub intialize_body {
         'generate', 
         $self->accessor_type, 
         'method',
-        ($self->as_inline ? 'inline' : ())
+        ($self->is_inline ? 'inline' : ())
     );
     
     eval { $self->{body} = $self->$method_name() };
@@ -202,7 +202,7 @@ Class::MOP::Method::Accessor - Method Meta Object for accessors
 
 =item B<accessor_type>
 
-=item B<as_inline>
+=item B<is_inline>
 
 =item B<associated_attribute>