use Carp 'confess';
use Scalar::Util 'blessed', 'weaken';
-our $VERSION = '0.71_01';
+our $VERSION = '0.76';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
my $meta_instance = $attr->associated_class->instance_metaclass;
my $code = $self->_eval_closure(
- q{},
+ {},
'sub {'
. $meta_instance->inline_set_slot_value('$_[0]', "'$attr_name'", '$_[1]')
. ' if scalar(@_) == 2; '
my $meta_instance = $attr->associated_class->instance_metaclass;
my $code = $self->_eval_closure(
- q{},
+ {},
'sub {'
. 'confess "Cannot assign a value to a read-only accessor" if @_ > 1;'
. $meta_instance->inline_get_slot_value('$_[0]', "'$attr_name'")
my $meta_instance = $attr->associated_class->instance_metaclass;
my $code = $self->_eval_closure(
- q{},
+ {},
'sub {'
. $meta_instance->inline_set_slot_value('$_[0]', "'$attr_name'", '$_[1]')
. '}'
my $meta_instance = $attr->associated_class->instance_metaclass;
my $code = $self->_eval_closure(
- q{},
+ {},
'sub {'
. $meta_instance->inline_is_slot_initialized('$_[0]', "'$attr_name'")
. '}'
my $meta_instance = $attr->associated_class->instance_metaclass;
my $code = $self->_eval_closure(
- q{},
+ {},
'sub {'
. $meta_instance->inline_deinitialize_slot('$_[0]', "'$attr_name'")
. '}'