Make .pick/.roll on Enums behave sanely

Same.pick could return Less or More. Now only Order.pick will return either Less, Same or More. Same for .roll. As discussed from http://irclog.perlgeek.de/perl6/2014-03-26#i_8496012
rakudo · Mar 27, 2014 · 68e0948 · 68e0948
1 parent 15ece87
commit 68e0948
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/src/core/Enumeration.pm b/src/core/Enumeration.pm
@@ -24,10 +24,14 @@ my role Enumeration {
     }
 
     method pick(*@pos, *%named) {
-        self.^enum_value_list.pick(|@pos, |%named)
+        self.defined
+          ?? self xx +?( @pos[0] // 1 )
+          !! self.^enum_value_list.pick(|@pos, |%named);
     }
     method roll(*@pos, *%named) {
-        self.^enum_value_list.roll(|@pos, |%named)
+        self.defined
+          ?? self xx ( @pos[0] // 1 )
+          !! self.^enum_value_list.roll(|@pos, |%named);
     }
 
     method Int(::?CLASS:D:) {