array-eq.pl

sub infix:<aeq>(@aval, @bval) {
    (@aval == @bval) && [&&](@aval Zeq @bval);
}

class Thing {
    has Str $.attr;
}

multi infix:<eq>(Thing $a, Thing $b) {
    $a.attr eq $b.attr;
}

say "eq: ", Thing.new(:attr<ab>) eq Thing.new(:attr<ab>);
say "zeq list: ", [Thing.new(:attr<ab>)] zeq [Thing.new(:attr<ab>)];
say "aeq list: ", [Thing.new(:attr<ab>)] aeq [Thing.new(:attr<ab>)];
say ">>eq<< list: ", [Thing.new(:attr<ab>)] >>eq<< [Thing.new(:attr<ab>)];