Klasse :: Workflow.Leichtgewichts-Workflow-System. | |
Jetzt downloaden |
Klasse :: Workflow. Ranking & Zusammenfassung
Anzeige
- Lizenz:
- Perl Artistic License
- Preis:
- FREE
- Name des Herausgebers:
- Yuval Kogman
- Website des Verlags:
- http://search.cpan.org/~nobull/
Klasse :: Workflow. Stichworte
Klasse :: Workflow. Beschreibung
Leichtes Workflow-System. Klasse :: Workflow ist ein leichte Workflow-System.Synopsis Verwenden Sie Klasse :: Workflow; # ***** Note ***** # # # Dies ist ein ziemlich langes und langweiliges Beispiel # # Sie möchten wahrscheinlich einige auffällige Flash-Videos sehen, also sehen Sie in sehen Sie auch # zuerst ;-) # # **** . # (Sie können den Statu, den Status, Übergang und Instanzobjekte manuell erstellen.) # Erstellen eines Zustands, und legen Sie die Übergänge fest, die $ WF-> -STatoren (Name => "Neu", Übergänge => ,); # Legen Sie es als den Anfangszustand $ wF-> initial_state ("neu"); # Erstellen Sie noch ein paar mehr Bundesstaaten $ WF-> Zustand (Name => "Open", Übergänge => ,); $ WF-> Zustand (Name => "abgelehnt",); # Übergänge Verschieben von Instanzen von State to state # Erstellen Sie den Übergang mit dem Namen "Ablehnung" # Der Status "NEU" bezieht sich auf diesen Übergang # Der Status "Zurückgewiesen" ist der Zielstatus $ WF-> Übergang (Name => "Ablehnen", to_state => "abgelehnt",); # Erstellen Sie einen Übergang mit dem Namen "Accept", # Dieser Übergang erstellt einen Wert aus dem Kontext (der den aktuellen aktierenden Benutzer enthält) # Der Kontext wird verwendet, um den aktuellen Eigentümer für den Fehler $ WF-> Übergang (Name => "akzeptieren") ", to_state =>" geöffnet ", body => sub {my ($ transate, $-minut, $ context) = @_; Rückkehr (Besitzer => $ context-> user, # zuweisen der Verwendung, die es akzeptiert hat); },); # Haken werden ausgeführt, wann immer ein Zustand eingegeben wird. Sie können die Instanz nicht ändern > Benachrichtigen ("Ihr Artikel wurde abgelehnt");}); # Der Rest der Workflow-Definition wird für BREVITY # endlich weggelassen. Verwenden Sie diesen Workflow in der Aktion, in der der Fehler-Erstellung sub NEW_BUG {MY ($ Submitter,% Params) = @_; Senden Sie $ WF-> New_instance (Submitter => $ Submitter,% Params,); } Anforderungen: · Perl.
Klasse :: Workflow. Zugehörige Software