Permalink
Browse files

.perl Enums correctly, too.

Signed-off-by: Moritz Lenz <moritz@faui2k3.org>
  • Loading branch information...
timo authored and moritz committed Dec 16, 2012
1 parent 6437197 commit f93e603b1a86f16356ca47162d66ebcc7f6beaa9
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/core/Enum.pm
View
@@ -29,7 +29,7 @@ my class Enum does Associative {
multi method Str(Enum:D:) { $.key ~ "\t" ~ $.value }
multi method perl(Enum:D:) {
- if $.key ~~ Pair {
+ if $.key ~~ Enum {
'(' ~ $.key.perl ~ ') => ' ~ $.value.perl;
} else {
$.key.perl ~ ' => ' ~ $.value.perl;

0 comments on commit f93e603

Please sign in to comment.