use Scalar::Util 'blessed', 'weaken', 'looks_like_number';
-our $VERSION = '0.70';
+our $VERSION = '0.72';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Moose::Meta::Method',
# this was changed in 0.41, but broke MooseX::Singleton, so try to catch
# any other code using the original broken spelling
-sub intialize_body { Moose->throw_error("Please correct the spelling of 'intialize_body' to 'initialize_body'") }
+sub intialize_body { $_[0]->throw_error("Please correct the spelling of 'intialize_body' to 'initialize_body'") }
sub initialize_body {
my $self = shift;
. '$instance, '
. $self->meta_instance->inline_get_slot_value(
'$instance',
- ("'" . $attr->name . "'")
+ $attr->name,
)
. ', '
. '$attrs->[' . $i . ']'
$source = (
$self->meta_instance->inline_set_slot_value(
'$instance',
- ("'" . $attr->name . "'"),
+ $attr->name,
$value
) . ';'
);
"\n" .
$self->meta_instance->inline_weaken_slot_value(
'$instance',
- ("'" . $attr->name . "'")
+ $attr->name
) .
' if ref ' . $value . ';'
);