Make coercion on member types DWIMmy with native delegations

[gitmo/Moose.git] / lib / Moose / Meta / Method / Accessor / Native / Writer.pm

diff --git a/lib/Moose/Meta/Method/Accessor/Native/Writer.pm b/lib/Moose/Meta/Method/Accessor/Native/Writer.pm
index 796be32..382ed32 100644 (file)
--- a/lib/Moose/Meta/Method/Accessor/Native/Writer.pm
+++ b/lib/Moose/Meta/Method/Accessor/Native/Writer.pm
@@ -58,6 +58,8 @@ sub _writer_core {
         $code .= "\n" . 'my @return;';
     }
 
+    # This is only needed by collections.
+    $code .= "\n" . $self->_inline_coerce_new_values;
     $code .= "\n" . $self->_inline_copy_native_value( \$potential_value );
     $code .= "\n"
         . $self->_inline_tc_code(
@@ -82,6 +84,8 @@ sub _inline_process_arguments {q{}}
 
 sub _inline_check_arguments {q{}}
 
+sub _inline_coerce_new_values {q{}}
+
 sub _value_needs_copy {
     my $self = shift;