diff --git a/src/core/Pair.pm b/src/core/Pair.pm index 3806b928e14..824c1fb0061 100644 --- a/src/core/Pair.pm +++ b/src/core/Pair.pm @@ -2,6 +2,14 @@ augment class Pair { multi method perl() { $.key.perl ~ ' => ' ~ $.value.perl; } + + method keys() { + [self.key]; + } + + method values() { + [self.value]; + } } multi sub infix:(Pair $a, Pair $b) {