Cor - Perl-เดจเตเดณเตเดณ เด’เดฐเต เด‡เดคเดฐ OOP เดธเดฟเดธเตเดฑเตเดฑเด‚

เด•เต‹เดฑเดฟเดจเตเดฑเต†เดฏเตเด‚ เดฎเต‚เดธเดฟเดจเตเดฑเต†เดฏเตเด‚ เดคเดพเดฐเดคเดฎเตเดฏเดคเตเดคเดฟเดจเดพเดฏเดฟ เดฒเดฟเด™เตเด•เต เด•เดพเดฃเตเด•. เดธเดพเดฎเตเดชเดฟเตพ เด•เต‹เดกเต:

เด•เตเดฒเดพเดธเต เดชเต‹เดฏเดฟเดจเตเดฑเต {
เด‰เดฃเตเดŸเต ($x, $y ) :เดตเดพเดฏเดจเด•เตเด•เดพเดฐเตป :เดŽเดดเตเดคเตเดคเตเด•เดพเดฐเตป :เดชเตเดคเดฟเดฏ :isa(Int);

เดฐเต€เดคเดฟ เด•เตเดฒเดฟเดฏเตผ() {
($x, $y) = (0, 0 );
}
}

class Point3D isa Point {
เด‰เดฃเตเดŸเต $z :เดตเดพเดฏเดจเด•เตเด•เดพเดฐเตป :เดŽเดดเตเดคเตเดคเตเด•เดพเดฐเตป :new :isa(Int);

เดฐเต€เดคเดฟ เด•เตเดฒเดฟเดฏเตผ() {
$self->เด…เดŸเตเดคเตเดคเดคเต:: เดฐเต€เดคเดฟ;
$z = 0;
}
}

เด…เดตเดฒเด‚เดฌเด‚: linux.org.ru

เด’เดฐเต เด…เดญเดฟเดชเตเดฐเดพเดฏเด‚ เดšเต‡เตผเด•เตเด•เตเด•