use Scalar::Util 'blessed', 'weaken', 'looks_like_number';
-our $VERSION = '0.57';
+our $VERSION = '0.62';
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 { Moose->throw_error("Please correct the spelling of 'intialize_body' to 'initialize_body'") }
sub initialize_body {
my $self = shift;
else {
my $default = $attr->default;
# make sure to quote strings ...
- unless (looks_like_number($default)) {
- $default = "'$default'";
- }
-
- return $default;
+ return "'$default'";
+
}
}