perl-language-es

package Point3D;
use strict;
use parent qw(Point);
...
1;
Perl permite la herencia múltiple:
package Point2D;
use strict;
use parent qw(Point PlanarObject);
...
1;
La herencia tiene que ver con la resolución de qué método debe llamarse en una situación
particular. Dado que Perl puro no prescribe ninguna regla sobre la estructura de datos utilizada
para almacenar datos de objetos, la herencia no tiene nada que ver con eso.
Considere la siguiente jerarquía de clases:
package GeometryObject;
use strict;
sub transpose { ...}
1;
package Point;
use strict;
use parent qw(GeometryObject);
sub new { ... };
1;
package PlanarObject;
use strict;
use parent qw(GeometryObject);
sub transpose { ... }
1;
package Point2D;
use strict;
use parent qw(Point PlanarObject);
sub new { ... }
sub polar_coordinates { ... }
1;
La resolución del método funciona de la siguiente manera:
1. El punto de partida está definido por el operando izquierdo del operador de flecha.
https://riptutorial.com/es/home 79