W języku Perl, jaki jest właściwy sposób dla podklasy do aliasów metody w klasie bazowej?

Question

Po prostu nienawidzę tego, jak akcesor CGI::Application dla obiektu nosi nazwę .

Chciałbym moje klasy instancji, aby móc korzystać z akcesor nazwie cgi aby uzyskać obiekt CGI związanego z bieżącej instancji mojego CGI::Application podklasy.

Oto samowystarczalny przykładem tego, co robię:

package My::Hello; 

sub hello { 
    my $self =shift; 
    print "Hello @_\n"; 
} 

package My::Merhaba; 

use base 'My::Hello'; 

sub merhaba { 
    goto sub { shift->hello(@_) }; 
} 

package main; 

My::Merhaba->merhaba('StackOverflow'); 

To działa jak myślę, że powinien i nie widzę żadnych problemów (powiedzmy, jeśli chcę dziedziczyć My::Merhaba: podklasy nie musisz nic wiedzieć o merhaba).

Czy byłoby lepiej/bardziej poprawne pisać

sub merhaba { 
    my $self = shift; 
    return $self->hello(@_); 
} 

Jakie są zalety/wady korzystania goto &NAME dla celów aliasing nazwę metody? Czy istnieje lepszy sposób?

Uwaga: Jeśli masz ochotę odpowiedzieć goto jest zła nie rób tego, bo to wykorzystanie Perl goto jest inna niż to, co masz na myśli.

Answer 1

Twoje podejście z goto jest właściwe, ponieważ zapewnia, że ​​caller/wantarray i tym podobne działają poprawnie.

bym setup nowa metoda tak:

sub merhaba { 
    if (my $method = eval {$_[0]->can('hello')}) { 
     goto &$method 
    } else { 
     # error code here 
    } 
} 

Albo jeśli nie chcesz korzystać z dziedziczenia, można dodać nową metodę do istniejącego pakietu z kodu wywołującego:

*My::Hello::merhaba = \&My::Hello::hello; 
    # or you can use = My::Hello->can('hello'); 

to można nazwać:

My::Hello->merhaba('StackOverflow'); 

i uzyskać pożądany rezultat.

W obu przypadkach ścieżka dziedziczenia jest łatwiejsza w utrzymaniu, ale dodanie metody do istniejącego pakietu spowoduje szybsze wywołania metod.

Edit:

Jak zauważył w komentarzach, istnieje kilka przypadków przypisanie glob będzie trwał konflikt z dziedziczenia, więc w razie wątpliwości, należy użyć pierwszej metody (tworzenie nowej metody w pakiecie sub).

Michael Carman zaproponował połączenie obu technik w zależności siebie redefinicji:

sub merhaba { 
    if (my $method = eval { $_[0]->can('hello') }) { 
     no warnings 'redefine'; 
     *merhaba = $method; 
     goto &merhaba; 
    } 
    die "Can't make 'merhaba' an alias for 'hello'"; 
} 

Answer 2

Można alias podprogramów manipulując tablicę symboli:

*My::Merhaba::merhaba = \&My::Hello::hello; 

Niektóre przykłady można znaleźć here.

Answer 3

nie jestem pewien, co jest we właściwy sposób, ale Adam Kennedy wykorzystuje swoją drugą metodę (bez goto) w Method::Alias (click here to go directly to the source code).

Answer 4

Jest to rodzaj kombinacji Quick-n-Dirty z odrobiną indirection przy użyciu UNIVERSAL::can.

package My::Merhaba; 
use base 'My::Hello'; 
# ... 
*merhaba = __PACKAGE__->can('hello'); 

i będziesz mieć sub nazywa „merhaba” w tym pakiecie, że aliasy My::Hello::hello. Mówisz po prostu, że niezależnie od tego, co zrobiłby ten pakiet pod nazwą hello, może to zrobić pod nazwą merhaba.

Jest to jednak niewystarczające, ponieważ jakiś dekorator kodu może zmienić podpunkt, który wskazuje na *My::Hello::hello{CODE}. W takim przypadku, Method::Alias może być właściwym sposobem określenia metody, jak sugeruje molekuła.

Jeśli jednak jest to raczej dobrze kontrolowana biblioteka, w której kontrolujesz zarówno kategorie nadrzędne, jak i podrzędne, powyższa metoda to slimmmer.