¿Cuál es la diferencia entre `use base` y @ISA en Perl?

Question

Quiero hacer una clase singleton que amplíe DBI. debería hacer algo como esto:

use base 'Class::Singleton'; 
our @ISA = ('DBI');

o esto:

our @ISA = ('Class::Singleton', 'DBI');

o alguna otra cosa?

No estoy seguro de cuál es la diferencia entre 'base de uso' e 'isa'.

Answer 1

Creo que debería utilizar el pragma parent en lugar de base como se ha sugerido en perldoc base.

Answer 2

El uso típico de @ISA es

package Foo; 

require Bar; 
our @ISA = qw/Bar/; 

Los base y parent pragmas tanto cargar la clase solicitada y modificar @ISA incluirlo:

package Foo; 

use base qw/Bar/; 

Si desea herencia múltiple, se puede suministrar más de un módulo a base o parent:

package Foo; 

use parent qw/Bar Baz/; #@ISA is now ("Bar", "Baz"); 

El pragma parent es nuevo a partir de Perl 5.10.1, pero es instalable desde CPAN si tiene una versión anterior de Perl. Fue creado porque el pragma base se había vuelto difícil de mantener debido a "restos que se habían acumulado en él". No debería ver una diferencia en el uso básico entre los dos.

Answer 3

de perldoc de la base ...

package Baz; 

use base qw(Foo Bar); 

es esencialmente equivalente a

package Baz; 

BEGIN { 
    require Foo; 
    require Bar; 
    push @ISA, qw(Foo Bar); 
} 

Personalmente, yo uso base.

Answer 4

Si desea heredar la clase principal, deberá cargarla y modificar @ISA. Estos dos pasos se solucionan cuando usa Base. Base carga el módulo por usted y modifica @ISA en consecuencia. De lo contrario, necesitaría modificar @ISA y cargar el módulo principal por su cuenta.

los dos ejemplos siguientes son equivalentes:

use base "Parent"; 

y

require Parent; 
@ISA = ("Parent");