Oglismo ¡Una idea de validación de datos que podría ser ideal!
Descargar ahora

Oglismo Clasificación y resumen

Oglismo Etiquetas

Módulo perl datos validación de datos validación centralizar los datos centralizador

Oglismo Descripción

Una idea de validación de datos que podría ser ideal! El módulo OOGLY es un enfoque diferente a la validación de datos, intenta simplificar y centralizar las reglas de validación de datos para garantizar el código seco (no repetir usted). ¡Probease NOTA! No es la intención de que este módulo proporcione rutinas de validación, sino que proporcione un control de flujo de validación simplista y promueva la reutilización del código. El siguiente es un ejemplo de eso ... Use MyApp :: Validación; My $ App = MyApp :: Validación-> Nuevo (\% Params); Si ($ App-> Valide ('Inicio de sesión', 'contraseña')) {...} else {impresión Únase "\ N", @ {$ App-> Errores}; } Paquete MyApp :: Validación Use campo QW / Mixin ogly QW /; # Defina una mezcla, una plantilla de SortOf que se puede incluir con otras reglas # utilizando la DIRECCIÓN DE MIXIN DIRECTIVA MIXIN 'predeterminada' => {requerido => 1, min_length => 4, max_length => 255}; # Definir una regla de validación de datos para el parámetro "Iniciar sesión", usando el # Mixin predeterminado donde el 'inicio de sesión' debe tener entre 4-255 caracteres y tener # al menos una letra y número de número 'inicio de sesión' => {etiqueta => ' Iniciar sesión ', Mixin =>' Predeterminado ', validación => SUB {MY ($, $ este, $ params) = @_; mi ($ nombre, $ valor) = ($ esto -> {etiqueta}, $ params -> {login}); $ Self-> Error ($ esto, "$ nombre debe contener al menos una letra y un número") a menos que ($ valor = ~ / / || $ valor = ~ / / ) }}; # Defina una regla de validación de datos para el parámetro "contraseña" que usa el campo # previamente definido "Iniciar sesión" como el campo de la mezcla (plantilla) "contraseña" => {mixin_field => 'login', etiqueta => 'contraseña de usuario'}; y Ahora, para mi segundo y último acto, usando ogly fuera de un paquete. #! / usr / bin / perl usa ogly qw /: todos /; MY $ I = OOGLY (Mixins => {predeterminado => {requerido => 1, min_length => 4, max_length => 255}}, campos => {login => {etiqueta => 'usuario de usuario', mixin => 'Predeterminado', validación => SUB {MY ($ yo, $ esto, $ params) = @_; mi ($ nombre, $ valor) = ($ esto -> {nombre}, $ params ->> {login}) ; $ auto-> Error ($ esto, "El nombre de Field $ debe contener al menos una letra y un número") Si ($ Valor! ~ / / $ Valor! ~ / / );}}, contraseña => {mixin_field => 'login', etiqueta => 'contraseña de usuario'}},); # Importante, almacene la nueva instancia creada por la función de configuración de $ i-> $ o = $ i-> configuracion ({login => 'root', contraseña => '...'}); Si ($ O-> Validate) {...} Requisitos: · Perl

Oglismo Software relacionado