Jak mogę wywołać klasę Perla o krótszej nazwie?

Question

Piszę moduł Perla Galaxy::SGE::MakeJobSH z OO.

Chcę użyć MakeJobSH->new() zamiast Galaxy::SGE::MakeJobSH->new(), lub kilku innych skrótów. Jak mogę to zrobić?

Answer 1

Można sugerować, że użytkownicy korzystają z modułu aliased załadować je:

use aliased 'Galaxy::SGE::MakeJobSH'; 
my $job = MakeJobSH->new(); 

Albo można wyeksportować nazwę klasy w zmiennej o nazwie $MakeJobSH;

use Galaxy::SGE::MakeJobSH; # Assume this exports $MakeJobSH = 'Galaxy::SGE::MakeJobSH'; 
my $job = $MakeJobSH->new(); 

Albo można wyeksportować funkcję MakeJobSH która zwraca nazwę klasy:

use Galaxy::SGE::MakeJobSH; # Assume this exports the MakeJobSH function 
my $job = MakeJobSH->new(); 

nie jestem pewien, że to wszystko to wielka idea, choć. Ludzie zwykle nie muszą wpisywać nazwy klasy tak często.

Oto, co można zrobić w swojej klasie w ciągu ostatnich dwóch opcji:

package Galaxy::SGE::MakeJobSH; 

use Exporter 'import'; 
our @EXPORT = qw(MakeJobSH $MakeJobSH); 

our $MakeJobSH = __PACKAGE__; 
sub MakeJobSH() { __PACKAGE__ }; 

Oczywiście, to prawdopodobnie chcesz wybrać tylko jedną z tych metod. Właśnie je połączyłem, aby uniknąć powielania przykładów.

Answer 2

Dzięki cjm.

Po prostu wybieram wbudowany alias.

require Exporter; 

our @ISA = qw(Exporter); 
our @EXPORT = qw(MakeJobSH); 

sub MakeJobSH() {return 'Galaxy::SGE::MakeJobSH';} 

Answer 3

alias działa dobrze, jeśli chcesz wpływać tylko na wywołania z pakietów, które jawnie żądają aliasingu. Jeśli chcesz globalnie aliasingować jedną przestrzeń nazw do drugiej, użyj zamiast tego Package::Alias.

Answer 4

Nie zawracam sobie głowy aliasingiem. Myślę, że to niewłaściwy sposób. Jeśli szukasz tylko mniej do pisania, może to być odpowiedź (ale czy nowa zależność jest bardziej korzystna niż ryzyko?). Nie podoba mi się pomysł oszukania programisty konserwacji, ukrywając prawdziwe imię od niego, ponieważ aliasing zdarza się daleko od jego użycia i nic nie wskazuje na to, że to, co wygląda jak nazwa klasy, nie jest prawdziwą klasą.

W większości poszukuję łatwej podklasy, więc pozwoliłem klasie zdecydować, który moduł będzie implementował część.

Na przykład mogę zacząć od klasy, która chce użyć Foo do obsługi części pracy.Wiem, że może chcę podklasy Foo później, więc nie ciężko kod to:

package Foo::Bar; 

sub foo_class { 'Foo' } 

sub new { 
     .... 
     eval "require $self->foo_class"; 
     $self->foo_class->do_something; 
     } 

W aplikacji, I zdecydować się na stosowanie 'Foo :: Bar':

#!perl 
use Foo::Bar; 

my $obj = Foo::Bar->new(); 

później muszę specjalizują Foo, więc tworzę podklasę przesłania części muszę:

package Foo::Bar::Baz; 
use parent 'Foo::Bar'; 

sub foo_class { 'Local::Foo::SomeFeature' } 

1; 

Inna aplikacja korzysta prawie wszystko z tego samego materiału, ale z małym uszczypnąć:

#!perl 
use Foo::Bar::Baz; 

my $obj = Foo::Bar::Baz->new(); 

Możesz również zrobić coś podobnego na poziomie aplikacji, jeśli chcesz napisać jeden program i pozwolić użytkownikom wybrać klasę przez konfigurację.

Answer 5

Jest prawie dokładnie takie samo podejście jak aliased ale przy użyciu standardowego modułu Perl:

use constant MakeJobSH => 'Galaxy::SGE::MakeJobSH'; 
my $job = MakeJobSH->new();