Pierwsze "... użyte tylko raz: możliwe literówki" ostrzeżenie podczas aliasingu podprogramów

Question

Mam trochę modułu i chcę utworzyć alias dla jakiegoś sub. Oto kod:

#!/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; 

To działa, ale produkuje kompilacji ostrzeżenie

Name "MySub :: inny" używany tylko raz: Możliwa literówka w /tmp/MySub.pm linii 23.

Wiem, że mogę po prostu wpisać no warnings 'once';, ale czy jest to jedyne rozwiązanie? Dlaczego Perl ostrzega mnie? Co ja robię źle?

Answer 1

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

lub

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

wolę drugie. Na początek wyłącza tylko wystąpienie ostrzeżenia, które chcesz wyłączyć. Ponadto, jeśli usuniesz jedną z linii i zapomnisz usunąć drugą, druga rozpocznie ostrzeganie. Idealny!

Answer 2

Należy wpisać nieco więcej:

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

ten sposób efekt no warnings jest zredukowana tylko do problematycznej linii.