Select Code to Download

package Class::Trait::TGetter;

...
}

1;

package Class::Trait::TSetter;

...
}

1;

package GetterSetter;

...
}

1;

package Person;

...
    # return GetterSetter without validation
    return GetterSetter->new($self, "name");;
}

use Person;

...
    print $p->name->get, ", ", $p->age->get, "\n";
};
print $@;