gistfile1.6pl

multi trait_mod:<is>(Mu $class, :$record!) {
    $class.^add_method('WHICH', anon method WHICH {
        my @attributes = $class.^attributes;
        my @xs = map({ .get_value(self).WHICH }, @attributes);
        Bag.new(@xs).WHICH;
    });
};

class Person is record {
    has $.name;
    has $.age;
    has @.pets;
}

my $person-a = Person.new(:name<Kristien>, :age(20), :pets<Goldfish Cat>);
say $person-a.WHICH;

my $person-b = Person.new(:name<Kristien>, :age(20), :pets<Goldfish Cat>);
say $person-b.WHICH;

my $person-c = Person.new(:name<vendethiel>, :age(20), :pets<Goldfish Cat>);
say $person-c.WHICH;

my @people = $person-a, $person-b, $person-c;
map { say $^a.perl, ' === ', $^b.perl, ' = ', ($^a === $^b); }, (@people X @people);