Implement Perl.DISTROnames

rakudo · May 31, 2014 · 08ff7e1 · 08ff7e1
1 parent b91eeb4
commit 08ff7e1
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/src/core/Perl.pm b/src/core/Perl.pm
@@ -11,6 +11,20 @@ class Perl does Systemic {
     ) { }
 
     method VMnames { <moar jvm parrot> }
+
+    method DISTROnames {
+        (
+#?if parrot
+        <macosx linux freebsd mswin32 mingw msys cygwin solaris haiku openbsd>
+#?endif
+#?if jvm
+        <macosx linux mswin32>
+#?endif
+#?if moar
+        <macosx linux mswin32>
+#?endif
+        )
+    }
 }
 PROCESS::<$PERL> := Perl.new;