Catalizzatore :: Controller :: Vincoli Catalizzatore :: Controller :: I vincoli contengono firme vincoli per le azioni del controller.
Scarica ora

Catalizzatore :: Controller :: Vincoli Classifica e riepilogo

Catalizzatore :: Controller :: Vincoli Tag

modulo Perl costrizione firme vincolo Firme azioni di controllo

Catalizzatore :: Controller :: Vincoli Descrizione

Catalizzatore :: Controller :: I vincoli contengono firme di vincoli per le azioni del controller. Catalizzatore :: Controller :: I vincoli contengono firme vincoli per i controller Azioni.Synopsis Package MyApp :: Controller :: foo; ... usa la base QW (catalizzatore :: controller :: vincoli); __Package __-> Config (vincoli => {# Consenti solo le cifre per il tipo 'intero' intero => QR / ^ D + $ /, # Consenti solo Word Charble per il tipo di parola "Word" => Sub {/ ^ W + $ /}, # Convalida ID utente e gonfiare su Object User => {# Controlla il controllo dell'utente check => sub {my ($ sé, $ c, $ id) = @_; return $ c-> is_valid_user_id ($ ID);}, # Avanti a questa azione se la convalida fallita on_fail => 'invalid_user', # se il valore è valido, eseguilo tramite questo filtro # in seguito post_filter => sub {my ($ sé, $ c, $ id) = @_; $ c-> fetch_user_by_id ($ ID);},} # Ereditance HighInteger => {INERIT_FROM => 'Integer', Check => Sub {$ _> 22},}, # Collapse più argomenti MyDate => {# Prendi tre numeri interi e restituire un valore prende => 3, dà => 1, # gonfia in un oggetto datetime post_filter => sub {my ($ sé, $ c, $ y, $ m, $ d) = @_; datetime-> nuovo (anno => $ y, mese => $ m, giorno => $ d);}}}); # Aggiungi due numeri interi, getta semplicemente eccezione su costrizione insufficienza sub aggiunta: Local ARGS (2) vincoli (Integer A, Integer B) {My ($ sé, $ c) = @_; $ c-> res-> corpo ($ _ {a} + $ _ {B}); } # mette la parola nella scorta, sotto la chiave 'foo' sub sdashword: local args (1) vincoli (word foo *) {} # User_obj termina come oggetto utente nella serie sub view_user: Local ARGS (1) Vincoli (Utente user_obj *) {} sub invalid_user: privato {# maniglia utente non valido} 1; Requisiti: · Requisiti perl: · Perl.

Catalizzatore :: Controller :: Vincoli Software correlato