A better example?

employee.p6

class Employee {
    # Rat is a rational number. No more floating point errors
    subset Salary         of Rat where * > 0;
    subset NonEmptyString of Str where * ~~ /\S/; # at least one non-space character

    has NonEmptyString $.name    is rw;
    has NonEmptyString $.surname is rw;
    has Salary         $.salary  is rw;

    method Str {
        return qq:to[END];
        Name:    {$.name}
        Surname: {$.surname}
        Salary:  {$.salary}
        END
    }
}
my $employee = Employee.new();

given $employee {
    .name    = 'Sally';
    .surname = 'Ride';
    .salary  = 200.0;
}

say "$employee";