Change the algorithm to use XS accessors. Now "xs" acts as a kind of "inline".

[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 626fa83..0cad3b3 100644 (file)
--- a/lib/Class/MOP/Method/Accessor.pm
+++ b/lib/Class/MOP/Method/Accessor.pm
@@ -95,11 +95,8 @@ sub _initialize_body {
         'method'
     );
 
-    if($self->can_xs($method_name)){
-        $method_name .= '_xs';
-    }
-    elsif($self->is_inline){
-        $method_name .= '_inline';
+    if($self->is_inline){
+        $method_name .= $self->can_xs($method_name) ? '_xs' : '_inline';
     }
 
     $self->{'body'} = $self->$method_name();