my $code = $self->_eval_closure(
{},
'sub {'
- . $meta_instance->inline_set_slot_value('$_[0]', "'$attr_name'", '$_[1]')
+ . $meta_instance->inline_set_slot_value('$_[0]', $attr_name, '$_[1]')
. ' if scalar(@_) == 2; '
- . $meta_instance->inline_get_slot_value('$_[0]', "'$attr_name'")
+ . $meta_instance->inline_get_slot_value('$_[0]', $attr_name)
. '}'
);
confess "Could not generate inline accessor because : $@" if $@;
=head1 COPYRIGHT AND LICENSE
-Copyright 2006-2008 by Infinity Interactive, Inc.
+Copyright 2006-2009 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>