Khi nào là tham chiếu chương trình con trong @INC được gọi?

Question

Như tiêu đề nói, tôi không rõ ràng khi nào một chương trình con sẽ được gọi. Từ trang require tại perldoc, người ta có thể viết:

push @INC, \&my_sub; 
sub my_sub { 
    my ($coderef, $filename) = @_; # $coderef is \&my_sub 
    ... 
} 

nhưng điều này chính xác? Gói yêu cầu hoặc tập lệnh yêu cầu (hoặc gói)? Tôi đã thử cả hai với một số tuyên bố print sentinel nhưng không làm việc như vậy rõ ràng có cái gì đó tôi không nhận được.

Answer 1

Perl gọi tham chiếu chương trình con trong @INC khi nó đang di chuyển ngang qua @INC để tìm mô-đun. Tức là, bạn sẽ kích hoạt nó khi bạn cố tải mô-đun với use hoặc require và Perl không tìm thấy mô-đun đó ở các vị trí @INC trước đó.

BEGIN { 
    push @INC, 
     sub { print "Oops: There was an error looking for $_[1]\n"; }; 
    } 

eval "use Cat::Burglar"; 
eval "use Local::NotThere"; 
require Cat::Burglar; 

Bạn cần đảm bảo rằng tham chiếu chương trình con của bạn nằm trong @INC trước khi bạn cố tải mô-đun. Hãy nhớ rằng use là một tính năng thời gian biên dịch và rằng require là tính năng thời gian chạy. Như với việc thêm các mục nhập "thường xuyên" @INC khác, bạn có thể muốn thực hiện việc đó trong khối BEGIN càng sớm càng tốt trong chương trình của bạn.

Answer 2

Để tránh gây nhầm lẫn chương trình con của chúng tôi với các chương trình con trong mô-đun Perl tiêu chuẩn nói chung là tốt để sử dụng unshift thay vì push. Vì vậy, trước tiên nó sẽ sử dụng chương trình con của bạn từ @INC.