Cor - he ʻōnaehana OOP ʻē aʻe no Perl

E ʻike i ka loulou no ka hoʻohālikelike ʻana iā Cor a me Moose. Laʻana code:

Lae papa {
loaʻa ($x, $y ) :mea heluhelu :mea kākau :hou :isa(Int);

ʻano maopopo () {
($x, $y ) = ( 0, 0 );
}
}

papa Point3D isa Point {
loaʻa iā $z :mea heluhelu :mea kākau :hou :isa(Int);

ʻano maopopo () {
$self->next::ʻano;
$z = 0;
}
}

Source: linux.org.ru