Cor este un sistem OOP alternativ pentru Perl

Consultați linkul pentru o comparație între Cor și Moose. Cod simplu:

clasa Point {
are ( $x, $y ) :reader :writer :new :isa(Int);

metoda clear() {
( $x, $y ) = ( 0, 0 );
}
}

clasa Point3D este un punct {
are $z :reader :writer :new :isa(Int);

metoda clear() {
$self->next::metoda;
$z = 0;
}
}

Sursa: linux.org.ru