Allow for "does Rational" and "does Rational[foo]"

From a question by cschwenz++ on #perl6
rakudo · Jun 29, 2017 · 41ed2c0 · 41ed2c0
1 parent d5bf5b0
commit 41ed2c0
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/core/Rational.pm b/src/core/Rational.pm
@@ -1,3 +1,5 @@
+my role Rational does Rational[Int] { }
+my role Rational[::T] does Rational[T,T] { }
 my role Rational[::NuT, ::DeT] does Real {
     has NuT $.numerator   = 0;
     has DeT $.denominator = 1;