Catalyst :: Controlador :: Restrições

Catalyst :: Controlador :: Restrições contém assinaturas de restrição para ações do controlador.
Baixe Agora

Catalyst :: Controlador :: Restrições Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Robert Sedlacek
  • Site do editor:
  • http://search.cpan.org/~phaylon/

Catalyst :: Controlador :: Restrições Tag


Catalyst :: Controlador :: Restrições Descrição

Catalyst :: Controlador :: Restrições contém assinaturas de restrição para ações do controlador. Catalyst :: Controlador :: Restrições contém assinaturas de restrição para ações do controlador.Synopsis Package MyApp :: Controlador :: Foo; ... Use Base QW (Catalyst :: Controller :: Restrições); __Package __-> Config (Restripts => {# Permitir apenas dígitos para tipo 'integer' integer => qr / ^ d + $ /, # Permitir apenas o Word Chars para tipo 'palavra' word => sub {/ ^ w + $ /}, # validar o ID do usuário e inflar para o objeto User => {# Verifique o ID do usuário Check => sub {my ($ auto, $ C, $ ID) = @_; return $ c-> is_valid_user_id ($ ID);}, # Encaminhar para esta ação Se a validação falhou on_fail => 'Invalid_User', # se o valor for válido, execute-o através deste filtro # depois post_filter => sub {my ($ auto, $ C, $ ID) = @_; $ c-> fetch_user_by_id ($ ID);},} # herança highinteger => {inherit_from => 'integer', verificação => sub {$ _> 22},}, # Recolher vários argumentos mydate => {# Tome três inteiros e retornar um valor leva => 3, dá => 1, # inflar para um objeto datetime post_filter => sub {my ($ auto, $ c, $ y, $ m, $ d) = @_; datetime-> novo (ano => $ y, mês => $ m, dia => $ D);}}}); # Adicionar dois inteiros, basta lançar exceção na falha de restrição Sub adicionar: Args local (2) Restrições (inteiro A, inteiro B) {Meu ($ auto, $ c) = @_; $ c-> res-> corpo ($ _ {a} + $ _ {b}); } # coloca a palavra no estoque, sob a chave 'foo' sub stashword: Restrições locais de args (1) (palavra foo *) {} # user_obj Termina como um objeto de usuário no STASH Sub View_User: Restrições locais de args (1) (Usuário user_obj *) {} subvalid_user: private {# Lidar com UserID} 1; Requisitos: · Requisitos de Perl: · Perl.


Catalyst :: Controlador :: Restrições Software Relacionado

Sobre nós