Perl Moose Method Modifiers: Call 'herum' vor 'vor' und 'nach'

Question

Ich benutze Moose und ich muss Methodenaufrufe in meinem Projekt umhüllen. Es ist wichtig, dass mein Umbruchcode der äußerste Modifikator ist. Was ich bisher getan ist meine Methode Modifikatoren in einem Elch Role setzen und angewandt, dann wird diese Rolle am Ende meiner Klasse wie folgt:

use Moose::Util; 
Moose::Util::apply_all_roles(__PACKAGE__->meta, ('App:Roles::CustomRole')); 
__PACKAGE__->meta->make_immutable; 

Das ist mir einigermaßen sicher sein kann, dass meine meine Rolle Modifikatoren Definiert als letztes und gibt mir das richtige Verhalten für "vorher" und "danach". (Das "Vorher" und das "Nachher" in der Rolle werden zuerst und zuletzt genannt.)

Ursprünglich dachte ich, das wäre ausreichend, aber jetzt muss ich die Methoden in ähnlicher Weise mit "around" umhüllen. Class :: MOP, auf dem Moose basiert, wendet "around" -Modifikatoren zuerst an, daher werden sie nach "vorher" und vor "nachher" benannt.

Für weitere Einzelheiten hier ist die aktuelle Berufung Reihenfolge meiner Modifikatoren:

CUSTOM ROLE before 
    before 2 
     before 1 
      CUSTOM ROLE around 
       around 
        method 
       around 
      CUSTOM ROLE around 
     after 1 
    after 2 
CUSTOM ROLE AFTER 

ich wirklich so etwas wie dieses brauchen:

CUSTOM ROLE before 
    CUSTOM ROLE around 
     before 2 
      before 1 
       around 
        method 
       around 
      after 1 
     after 2 
    CUSTOM ROLE around 
CUSTOM ROLE AFTER 

Alle Ideen, wie meine „um“ Modifikator zu erhalten Wo soll ich es anwenden? Ich weiß, dass ich einige Symboltabellen hacken könnte (wie Class :: MOP macht das schon), aber ich würde es wirklich nicht tun.

Answer 1

Die einfachste Lösung ist CUSTOM ROLE zu definieren eine Methode, die die Hauptmethode aufruft und dann umschließt.

role MyRole { 
    required 'wrapped_method'; 
    method custom_role_base_wrapper { $self->wrapped_method(@_) } 

    around custom_role_base_wrapper { ... } 
    before custom_role_base_wrapper { ... } 
} 

Das Problem, das Sie ist, dass Sie versuchen, die benutzerdefinierte Rolle um wickeln etwas andere als eine Methode zu haben. Was ist es nicht, was es zu tun ist. Anders als das Schreiben ähnlicher Symboltabellen-Hacker, wie du es vorgeschlagen hast (wahrscheinlich könntest du einen der Elch-Leute dazu bringen, eine API in Class :: MOP herauszubringen, um dorthin zu gelangen), die einzige andere Lösung, die ich mir vorstellen kann, ist die obige.

Wenn Sie nicht den zusätzlichen Anruf Stapelrahmen möchten, dass custom_role_base_wrapper hinzufügen, sollten Sie bei Yuval die aussehen Sub::Call::Tail oder mit goto den Call-Stack zu manipulieren.

Answer 2

Ich bin ziemlich neu in Moose, aber warum tun Sie dies:

use Moose::Util; 
Moose::Util::apply_all_roles(__PACKAGE__->meta, ('App:Roles::CustomRole')); 

anstatt einfach das?

with 'App:Roles::CustomRole'; 

Zu Ihrer Frage, es ist ein bisschen wie ein Hack, aber könnten Sie teilen Sie Ihre around Methode in before und after Methoden und wenden Sie die Rolle am Ende der Klassendefinition (so ist es in der gewünschten Reihenfolge angewendet) Sie können private Attribute verwenden, um den Status zwischen den beiden Methoden zu speichern, wenn dies unbedingt erforderlich ist.