La intención es probarlo, dar sugerencias, avisar de errores... para que en el futuro forme parte del núcleo principal de Perl.
Using perl Syntax Highlighting
- use mop;
- class Point {
- has $!x is ro = 0;
- has $!y is ro = 0;
- method clear {
- ($!x, $!y) = (0, 0);
- }
- }
- class Point3D extends Point {
- has $!z is ro = 0;
- method clear {
- $self->next::method;
- $!z = 0;
- }
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4