gistfile1.txt

sub record($class) {
    my @attributes = $class.^attributes;

    $class.^add_method('perl', anon method perl {
        my $result = $class.^name;
        $result ~= '.new(';
        $result ~= @attributes.map({ .get-value(self).perl }).join(', ');
        $result ~= ')';
        $result;
    });
}

class Person {
    has $.name;
    has $.age;
    has @.pets;

    record(Person);
}

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