Match infix:<eqv> -- Draft!

gistfile1.md

multi sub infix:<eqv>(Match:D $a, Match:D $b) {
   $a.to   eqv $b.to   &&
   $a.from eqv $b.from &&
   $a.orig eqv $b.orig &&
   $a.made eqv $b.made &&
   $a.list eqv $b.list &&
   $a.hash eqv $b.hash;
}

A better implementation has been suggested:

multi sub infix:<eqv>(Match:D $a, Match:D $b) {
    [&&] (
        $a.to   eqv $b.to,
        $a.from eqv $b.from,
        $a.orig eqv $b.orig,
        $a.made eqv $b.made,
        $a.list eqv $b.list,
        $a.hash eqv $b.hash
    );
}

And that's where things currently stand.

Since most objects implement some operators as methods, how about this one for the Match class:

method eqv(Match:D: $b) {
        self === $b || [&&] (
                $!to      eqv $b.to,
                $!from    eqv $b.from,
                $!orig    eqv $b.orig,
                $!made    eqv $b.made,
                self.list eqv $b.list,
                self.hash eqv $b.hash
        );
}