infix:<eqv> for hashes

rakudo · Jul 15, 2009 · 10843c7 · 10843c7
1 parent dfe8518
commit 10843c7
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/setting/Operators.pm b/src/setting/Operators.pm
@@ -39,6 +39,15 @@ multi sub infix:<eqv>(Pair $a, Pair $b) {
     $a.key eqv $b.key && $a.value eqv $b.value;
 }
 
+multi sub infix:<eqv>(Mapping $a, Mapping $b) {
+    return Bool::False if +$a != +$b;
+    for $a.kv -> $k, $v {
+        return Bool::False unless $b.exists($k);
+        return Bool::False unless $b.{$k} eqv $v;
+    }
+    return Bool::True;
+}
+
 multi sub infix:<eqv> ($a, $b) {
     return Bool::False unless $a.WHAT === $b.WHAT;
     die "infix:<eqv> is only implemented for certain special cases yet";