Add &infix:«=>» and Enum.perl.

rakudo · Jun 18, 2011 · a02622b · a02622b
1 parent 4d4bfa6
commit a02622b
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/src/core/Enum.pm b/src/core/Enum.pm
@@ -10,5 +10,6 @@ my class Enum {
     method value() { $!value }
 
     multi method Str(Enum:D:) { $.key ~ "\t" ~ $.value }
+    multi method perl(Enum:D:) { $.key.perl ~ ' => ' ~ $.value.perl }
 }
 
diff --git a/src/core/Pair.pm b/src/core/Pair.pm
@@ -2,3 +2,7 @@ my class Pair is Enum {
     # method value() is rw { ... }
 }
 
+sub infix:«=>»($key, Mu $value) { 
+    Pair.new(:key($key), :value($value))
+}
+