Cor - āĻĒāĻžāĻ°ā§āĻ˛ā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻāĻ•āĻŸāĻŋ āĻŦāĻŋāĻ•āĻ˛ā§āĻĒ OOP āĻ¸āĻŋāĻ¸ā§āĻŸā§‡āĻŽ

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

āĻāĻ•āĻŸāĻŋ āĻŽāĻ¨ā§āĻ¤āĻŦā§āĻ¯ āĻœā§āĻĄāĻŧā§āĻ¨