Jaki jest najlepszy sposób na zbudowanie systemu wtyczek dla aplikacji Moose?

Question

Chcę napisać aplikację, którą można rozszerzyć za pomocą wtyczek, używając Perla i Moose. Wiem, że istnieje kilka modułów Moose do pisania wtyczek i wiem, że są inne sposoby.

Jakie są moje opcje? i co powinienem o nich wiedzieć? o czym powinienem pomyśleć przed wdrożeniem systemu wtyczek?

Answer 1

Istnieje kilka sposobów na zapewnienie rozszerzalności; pozwól użytkownikowi na zastosowanie ról do klasy lub pozwól, aby przekazywały małe obiekty, które wykonują interesujące rzeczy (delegaci). Delegaci wykonują zadania lepsze niż role, ale będą wymagać od ciebie planowania całej rozszerzalności. Role umożliwiają więcej zachowań ad-hoc.

Oto dwie dystrybucje CPAN, które biorą każde podejście:

Delegatów: AnyEvent::Subprocess

Role: Devel::REPL

role wtyczki są realizowane z MooseX::Object::Pluggable.

Delegaci są wdrażani w dowolny sposób; wzór przechodzi instancję klasy A, dokłada pewną rolę R do klasy C, a następnie Klasa C delegatów A. Oto przykład:

package Compare; 
use Moose::Role; 
requires 'compare'; 


package SpaceshipCompare; 
use Moose; 
with 'Compare'; 

sub compare { my ($a, $b) = @_; return $a <=> $b } 

package Sort; 
use Moose; 

has 'comparer' => (
    is  => 'ro', 
    does  => 'Compare', 
    handles => 'Compare', 
    required => 1, 
); 

sub my_sort { 
    my ($self, @list) = @_; 
    return sort { $self->compare($a, $b) } @list; 
} 

Wtedy to wykorzystać jak:

my $sorter = Sort->new(comparer => SpaceshipCompare->new); 
my @sorted = $sorter->my_sort("1one", "0", "43"); 

Aby zmienić sposób sortowania, wystarczy utworzyć nową klasę, która spełnia rolę Compare, a następnie przekazać instancję do konstruktora Sort. Natychmiastowa elastyczność!