Sự khác nhau giữa `base base` và @ISA trong Perl là gì?

Question

Tôi muốn tạo một lớp singleton mở rộng DBI. Tôi nên làm một cái gì đó như thế này:

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

hay này:

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

hay cái gì khác?

Không thực sự chắc chắn sự khác biệt giữa 'cơ sở sử dụng' và 'isa' là gì.

Answer 1

Tôi nghĩ bạn nên sử dụng parent pragma thay vì base như đã được đề xuất trong perldoc base.

Answer 2

Việc sử dụng điển hình của @ISA là

package Foo; 

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

Các base và parent pragmas cả nạp lớp yêu cầu và sửa đổi @ISA bao gồm nó:

package Foo; 

use base qw/Bar/; 

Nếu bạn muốn đa kế thừa, bạn có thể cung cấp nhiều mô-đun đến base hoặc parent:

package Foo; 

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

parent pragma mới là Perl 5.10.1, nhưng có thể cài đặt từ CPAN nếu bạn có phiên bản cũ hơn của Perl. Nó đã được tạo ra bởi vì base pragma đã trở nên khó khăn để duy trì do "cruft đã tích lũy trong nó." Bạn sẽ không thấy sự khác biệt trong việc sử dụng cơ bản giữa hai người.

Answer 3

từ perldoc cơ sở của ...

package Baz; 

use base qw(Foo Bar); 

là về cơ bản tương đương với

package Baz; 

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

Cá nhân, tôi sử dụng cơ sở.

Answer 4

Nếu bạn muốn kế thừa lớp cha mẹ thì bạn sẽ cần tải nó và sửa đổi @ISA. Cả hai bước này đều được thực hiện khi bạn sử dụng Base. Cơ sở tải mô-đun cho bạn và sửa đổi @ISA cho phù hợp. Nếu không, bạn sẽ cần phải sửa đổi @ISA và tự tải mô-đun chính.

Cả hai sau đây là tương đương:

use base "Parent"; 

và

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