From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 25 Jun 2009 15:15:20 +0000 (-0500)
Subject: add inline version of rebless_instance_structure
X-Git-Tag: 0.89~29
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bc3c58a0d3dc6abb48986012d2fd1ad53c1b5ea2;p=gitmo%2FClass-MOP.git

add inline version of rebless_instance_structure
---

diff --git a/lib/Class/MOP/Instance.pm b/lib/Class/MOP/Instance.pm
index d6d8c29..fb14cfd 100644
--- a/lib/Class/MOP/Instance.pm
+++ b/lib/Class/MOP/Instance.pm
@@ -214,6 +214,11 @@ sub inline_strengthen_slot_value {
     $self->inline_set_slot_value($instance, $slot_name, $self->inline_slot_access($instance, $slot_name));
 }
 
+sub inline_rebless_instance_structure {
+    my ($self, $instance, $class_variable) = @_;
+    "bless $instance => $class_variable";
+}
+
 1;
 
 __END__