Optimize away a few explicit returns

niner · Feb 20, 2022 · eeeab59 · eeeab59
1 parent fd6a3f6
commit eeeab59
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/lib/Inline/Perl5.pm6 b/lib/Inline/Perl5.pm6
@@ -895,22 +895,22 @@ class Perl6Callbacks {
         Nil
     }
     method run($code) {
-        return EVAL $code;
         CONTROL {
             when CX::Warn {
                 note $_.gist;
                 $_.resume;
             }
         }
+        EVAL $code
     }
     method call(Str $name, @args) {
-        return &::($name)(|@args);
         CONTROL {
             when CX::Warn {
                 note $_.gist;
                 $_.resume;
             }
         }
+        &::($name)(|@args)
     }
     method invoke(Str $package, Str $name, @args) {
         my %named = classify {$_.WHAT =:= Pair}, @args;
@@ -922,16 +922,16 @@ class Perl6Callbacks {
             fail "No such symbol '$package'" unless $!p5.module-loaded($package);
             $class := $!p5.loaded-module($package);
         }
-        return $class."$name"(|%named<False>, |%(%named<True>));
         CONTROL {
             when CX::Warn {
                 note $_.gist;
                 $_.resume;
             }
         }
+        $class."$name"(|%named<False>, |%(%named<True>))
     }
     method create_pair(Any $key, Mu $value) {
-        return $key => $value;
+        $key => $value;
     }
 }