A Cor egy alternatív OOP rendszer a Perl számára

Itt van Cor és Moose összehasonlítása. Példa a kódra:

classPoint {
rendelkezik ( $x, $y ) :reader :writer :new :isa(Int);

módszer clear() {
( $x, $y ) = ( 0, 0 );
}
}

osztály Pont3D isa Pont {
rendelkezik $z :reader :writer :new :isa(Int);

módszer clear() {
$self->next::method;
$z = 0;
}
}

Forrás: linux.org.ru