use Scalar::Util 'weaken', 'blessed';
-our $VERSION = '0.88';
+our $VERSION = '0.89';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
sub inline_slot_access {
my ($self, $instance, $slot_name) = @_;
- sprintf q[%s->{"%s"}], $instance, quotemeta($slot_name);
+ sprintf q[%s->{'%s'}], $instance, quotemeta($slot_name);
}
sub inline_get_slot_value {
The method returns a snippet of code that, when inlined, performs some
operation on the instance.
+=item B<< $metainstance->inline_rebless_instance_structure($instance_variable, $class_variable) >>
+
+This takes the name of a variable that will, when inlined, represent the object
+instance, and the name of a variable that will represent the class to rebless
+into, and returns code to rebless an instance into a class.
+
=back
=head2 Introspection