Oogly. Uma ideia de validação de dados que só pode ser ideal!
Baixe Agora

Oogly. Classificação e resumo

Oogly. Tag

Módulo Perl. dados data de validade validação centralizar dados centralizador

Oogly. Descrição

Uma ideia de validação de dados que só pode ser ideal! O módulo OOGLY é uma abordagem diferente para a validação de dados, ele tenta simplificar e centralizar as regras de validação de dados para garantir seco (não se repita) código. Por favor! Não é a intenção deste módulo para fornecer rotinas de validação, mas, em vez disso, fornecer um controle de fluxo de validação simplista e promover a reutilização de código. O seguinte é um exemplo disso ... Use MyApp :: validation; Meu $ App = MyApp :: validation-> Novo (\% params); Se ($ App-> Validar ('Login', 'Password')) {...} else {Print Junte "\ n", @ {$ app-> erros}; } Pacotes MyApp :: Validation Use ooGly QW / Mixin Field /; # Defina um Mixin, um modelo SortOf que pode ser incluído com outras regras # usando a diretiva mixina 'padrão' => {obrigatório => 1, min_length => 4, max_length => 255}; # Defina uma regra de validação de dados para o parâmetro `login do parâmetro usando o padrão # mixin onde o` login` deve estar entre 4-255 caracteres de comprimento e ter # pelo menos uma letra e um número de login 'login' => {label => ' Login ', mixin =>' default ', validação => sub {my ($ self, $ isso, $ params) = @_; Meu (Nome $, $ Value) = ($ isto -> {Label}, $ params -> {login}); $ auto-> Erro ($ isso, "$ NAME deve conter pelo menos uma letra e número") a menos que ($ valor = ~ / / || $ valor = ~ / / ); }}; # Definir uma regra de validação de dados para o parâmetro `senha do parâmetro usando o campo # previamente definido 'Login' como o campo mixin (modelo) 'senha' => {mixin_field => 'login', etiqueta => 'senha do usuário'}; e Agora, para o meu segundo e último ato, usando ooogly fora de um pacote. #! / usr / bin / perl Use oogly qw /: tudo /; Meu $ i = OOGly (Mixins => {Default => {Obrigatório => 1, min_length => 4, max_length => 255}}, campos => {login => {label => 'login do usuário', mixin => 'Padrão', Validation => Sub {My ($ Self, $ isto, $ params) = @_; meu ($ nome, $ valor) = ($ isso -> {name}, $ params -> {login}) ; $ Self-> Erro ($ isso, "O Campo $ Nome deve conter pelo menos uma letra e número") se ($ valor! ~ / / $ Valor! ~ / / );}}, senha => {mixin_field => 'Login', etiqueta => 'Senha do usuário'}},); # Importante, armazene a nova instância criada pela função $ i-> Configuração $ o = $ i-> setup ({login => 'root', password => '...'}); Se ($ o-> validar) {...} Requisitos: · Perl.

Oogly. Software Relacionado