Nhận thông báo "... chỉ được sử dụng một lần: có thể có lỗi đánh máy" khi các trình con đặt bí danh

Question

Tôi có một số mô-đun và muốn tạo bí danh cho một số phụ. Đây là mã:

#!/usr/bin/perl 

package MySub; 

use strict; 
use warnings; 

sub new { 
    my $class = shift; 
    my $params = shift; 
    my $self = {}; 
    bless($self, $class); 
    return $self; 
} 

sub do_some { 
    my $self = shift; 
    print "Do something!"; 
    return 1; 
} 

*other = \&do_some; 

1; 

Nó hoạt động, nhưng nó tạo ra một biên dịch cảnh báo

Name "MySub :: khác" được sử dụng một lần duy nhất: có thể typo ở /tmp/MySub.pm dòng 23.

Tôi biết rằng tôi chỉ có thể nhập no warnings 'once';, nhưng đây có phải là giải pháp duy nhất không? Tại sao Perl lại cảnh báo tôi? Tôi đang làm gì sai?

Answer 1

{ 
    no warnings 'once'; 
    *other = \&do_some; 
} 

hoặc

*other = \&do_some; 
*other if 0; # Prevent spurious warning 

tôi thích sau này. Để bắt đầu, nó sẽ chỉ vô hiệu hóa cá thể của cảnh báo bạn muốn vô hiệu hóa. Ngoài ra, nếu bạn xóa một trong các dòng và quên xóa một dòng khác, dòng còn lại sẽ bắt đầu cảnh báo. Hoàn hảo!

Answer 2

Bạn nên gõ thêm một chút:

{ no warnings 'once'; 
    *other = \&do_some; 
} 

Bằng cách này, ảnh hưởng của no warnings giảm chỉ vào dòng có vấn đề.