Cor āĻāĻŦāĻ Moose āĻ¤ā§āĻ˛āĻ¨āĻž āĻāĻ°āĻžāĻ° āĻāĻ¨ā§āĻ¯ āĻ˛āĻŋāĻā§āĻāĻāĻŋ āĻ āĻ¨ā§āĻ¸āĻ°āĻŖ āĻāĻ°ā§āĻ¨āĨ¤ āĻā§āĻĄā§āĻ° āĻāĻĻāĻžāĻšāĻ°āĻŖ:
āĻā§āĻ˛āĻžāĻ¸ āĻĒāĻ¯āĻŧā§āĻ¨ā§āĻ {
āĻāĻā§ ( $x, $y): āĻĒāĻžāĻ āĻ : āĻ˛ā§āĻāĻ : new :isa(Int);
āĻĒāĻĻā§āĻ§āĻ¤āĻŋ āĻĒāĻ°āĻŋāĻˇā§āĻāĻžāĻ°() {
( $x, $y) = ( 0, 0);
}
}
āĻā§āĻ˛āĻžāĻ¸ Point3D isa āĻĒāĻ¯āĻŧā§āĻ¨ā§āĻ {
āĻāĻā§ $z :reader :writer :new :isa(Int);
āĻĒāĻĻā§āĻ§āĻ¤āĻŋ āĻĒāĻ°āĻŋāĻˇā§āĻāĻžāĻ°() {
$self->next::method;
$z = 0;
}
}
āĻāĻ¤ā§āĻ¸: linux.org.ru