use Scalar::Util 'blessed', 'weaken', 'looks_like_number', 'refaddr';
-our $VERSION = '1.08';
+our $VERSION = '1.12';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Moose::Meta::Method',
defined $_ ? $_->_compiled_type_constraint : undef;
} @type_constraints;
+ my $defaults = [map { $_->default } @$attrs];
+
my ( $code, $e ) = $self->_compile_code(
code => $source,
environment => {
'$meta' => \$self,
'$attrs' => \$attrs,
+ '$defaults' => \$defaults,
'@type_constraints' => \@type_constraints,
'@type_constraint_bodies' => \@type_constraint_bodies,
},
push @source => ('my $val = $params->{\'' . $init_arg . '\'};');
if ($is_moose && $attr->has_type_constraint) {
- if ($attr->should_coerce) {
+ if ($attr->should_coerce && $attr->type_constraint->has_coercion) {
push @source => $self->_generate_type_coercion(
$attr,
'$type_constraints[' . $index . ']',
return unless $attr->has_type_constraint;
my @source;
- if ($attr->should_coerce) {
+ if ($attr->should_coerce && $attr->type_constraint->has_coercion) {
push @source => $self->_generate_type_coercion(
$attr,
'$type_constraints[' . $index . ']',
);
}
-sub _generate_default_value {
- my ($self, $attr, $index) = @_;
- # NOTE:
- # default values can either be CODE refs
- # in which case we need to call them. Or
- # they can be scalars (strings/numbers)
- # in which case we can just deal with them
- # in the code we eval.
- if ($attr->is_default_a_coderef) {
- return '$attrs->[' . $index . ']->default($instance)';
- }
- else {
- return q{"} . quotemeta( $attr->default ) . q{"};
- }
-}
-
1;
__END__