ಕೊರ್ ಮತ್ತು ಮೂಸ್ ಅನ್ನು ಹೋಲಿಸಲು ಲಿಂಕ್ ಅನ್ನು ಅನುಸರಿಸಿ. ಮಾದರಿ ಕೋಡ್:
ಕ್ಲಾಸ್ ಪಾಯಿಂಟ್ {
ಹೊಂದಿದೆ ($x, $y ) :ಓದುಗ :ಬರಹಗಾರ :ಹೊಸ :isa(Int);
ವಿಧಾನ ಸ್ಪಷ್ಟ () {
($x, $y) = (0, 0);
}
}
class Point3D isa Point {
$z :ಓದುಗ :ಬರಹಗಾರ :ಹೊಸ :isa(Int);
ವಿಧಾನ ಸ್ಪಷ್ಟ () {
$self->ಮುಂದೆ:: ವಿಧಾನ;
$z = 0;
}
}
ಮೂಲ: linux.org.ru