obj equi

eq.pl6

#!/usr/bin/env perl6


class Foo {
    has Str $.a;
    has Int $.b;
    method eq(Foo $other){
        my Bool $flag = True;

        for self.^attributes {
            do { $flag = False; last; } unless ( $_.get_value(self).Str eq $_.get_value($other).Str );
        }
        return $flag;
    }
}

say Foo.new(:a(<foo>), b => 100).eq(Foo.new(:a(<foo>), b => 100))