RosettaCodeData/Task/Classes/PHL/classes.phl

24 lines
379 B
Plaintext

module classes;
extern printf;
class @MyClass {
field @Integer myField { get:get_myField, set:set_myField };
new [
this.set_myField(2);
]
@Void method [
this.set_myField(this::get_myField + 1);
]
};
@Integer main [
var obj = new @MyClass;
printf("obj.myField: %i\n", obj::get_myField);
obj::method;
printf("obj.myField: %i\n", obj::get_myField);
return 0;
]