Cor ۽ Moose جي مقابلي لاءِ لنڪ ڏسو. مثال ڪوڊ:
ڪلاس پوائنٽ {
has ($x, $y) :reader :writer :new :isa(Int);
طريقو صاف () {
($x، $y) = (0، 0)؛
}
}
ڪلاس Point3D isa Point {
$z :reader :writer :new :isa(Int);
طريقو صاف () {
$self->اڳيون::طريقو؛
$z = 0؛
}
}
جو ذريعو: linux.org.ru