Tha Cor na shiostam OOP eile airson Perl

Faic an ceangal airson coimeas eadar Cor agus Moose. Còd sampaill:

clas puing {
tha ($ x, $y ): leughadair : sgrìobhadair : ùr :isa (Int);

modh soilleir() {
( $x, $y ) = ( 0, 0 );
}
}

clas Point3D isa Point {
tha $z :reader :writer :new :isa(Int);

modh soilleir() {
$self-> ath ::modh;
$z = 0;
}
}

Source: linux.org.ru