Segueix l'enllaç per comparar Cor i Moose. Codi de mostra:
Class Point {
té ( $x, $y ) :lector :escriptor :nou :isa(Int);
mètode clar () {
( $x, $y ) = ( 0, 0 );
}
}
classe Point3D és un punt {
té $z :reader :writer :new :isa(Int);
mètode clar () {
$self->següent::mètode;
$z = 0;
}
}
Font: linux.org.ru