$code .= "if (exists $value) {\n";
if($need_coercion){
- $value = "$instance_slot = $constraint_var->coerce($value);\n";
+ $value = "$constraint_var->coerce($value)";
}
$code .= "$instance_slot = $value;\n";
if ($attr->has_trigger) {
$has_triggers++;
- $code .= "push \@triggers, [$attr_var\->{trigger}, $value];\n";
+ $code .= "push \@triggers, [$attr_var\->{trigger}, $instance_slot];\n";
}
$code .= "\n} else {\n";
}
if($metaclass->is_anon_class){
- push @res, q{$instnace->{__METACLASS__} = $metaclass;};
+ push @res, q{$instance->{__METACLASS__} = $metaclass;};
}
if($has_triggers){
}
1;
+__END__
+
+=head1 NAME
+
+Mouse::Meta::Method::Constructor - A Mouse method generator for constructors
+
+=head1 VERSION
+
+This document describes Mouse version 0.38
+
+=head1 SEE ALSO
+
+L<Moose::Meta::Method::Constructor>
+
+=cut