If we have nothing left to do for the accessor, we can return during set

diff --git a/lib/Mouse/Meta/Attribute.pm b/lib/Mouse/Meta/Attribute.pm
index 6530166..5d91002 100644 (file)
--- a/lib/Mouse/Meta/Attribute.pm
+++ b/lib/Mouse/Meta/Attribute.pm
@@ -84,7 +84,10 @@ sub generate_accessor {
             }' . "\n"
         }
 
-        $accessor .= $self . '->{'.$key.'} = '. $value .';' . "\n";
+        $accessor .= 'return '
+            if !$attribute->is_weak_ref
+            && !$trigger
+            && !$attribute->should_auto_deref;
 
         if ($attribute->is_weak_ref) {
             $accessor .= 'weaken('.$self.'->{'.$key.'}) if ref('.$self.'->{'.$key.'});' . "\n";