use Scalar::Util 'weaken', 'blessed';
-our $VERSION = '0.03';
+our $VERSION = '0.04';
our $AUTHORITY = 'cpan:STEVAN';
sub meta {
$self->set_slot_value($instance, $slot_name, $self->get_slot_value($instance, $slot_name));
}
+sub rebless_instance_structure {
+ my ($self, $instance, $metaclass) = @_;
+ bless $instance, $metaclass->name;
+}
+
# inlinable operation snippets
sub is_inlinable { 1 }
=item B<strengthen_slot_value ($instance_structure, $slot_name)>
+=item B<rebless_instance_structure ($instance_structure, $new_metaclass)>
+
=back
=head2 Inlineable Instance Operations