Streamline Metamodel::SubsetHOW (Part 2/N)

Specifically .accepts_type by using attribute shortcut and moving the ternary to avoid repeating code
rakudo · Apr 12, 2024 · 309686a · 309686a
1 parent e7d7261
commit 309686a
Showing 1 changed file with 12 additions and 6 deletions.
diff --git a/src/Perl6/Metamodel/SubsetHOW.nqp b/src/Perl6/Metamodel/SubsetHOW.nqp
@@ -138,13 +138,19 @@ class Perl6::Metamodel::SubsetHOW
 
     # Here we check the value itself (when on RHS on smartmatch).
     method accepts_type($XXX, $checkee) {
+        my $refinee := $!refinee;
+
         nqp::hllboolfor(
-            nqp::istype($checkee, $!refinee) &&
-            (nqp::isnull($!refinement)
-             || ($!refinee.HOW.archetypes($!refinee).coercive
-                    ?? nqp::istrue($!refinement.ACCEPTS($!refinee.HOW.coerce($!refinee, $checkee)))
-                    !! nqp::istrue($!refinement.ACCEPTS($checkee)))),
-            "Raku")
+          nqp::istype($checkee, $refinee)
+            && (nqp::isnull($!refinement)
+                  || nqp::istrue($!refinement.ACCEPTS(
+                       $refinee.HOW.archetypes($refinee).coercive
+                         ?? $refinee.HOW.coerce($refinee, $checkee)
+                         !! $checkee
+                     ))
+          ),
+          "Raku"
+        )
     }
 
     # Methods needed by Perl6::Metamodel::Nominalizable