Oogly une idée de validation de données qui pourrait être idéale!
Télécharger maintenant

Oogly Classement & Résumé

Oogly Mots clés

Module Perl Les données la validation des données validation Centraliser les données centreur

Oogly La description

Une idée de validation de données qui pourrait être idéale! Le module oogly est une approche différente de la validation des données, il tente de simplifier et de centraliser les règles de validation des données pour assurer le code (ne pas répéter vous-même) code.Veuillez noter! Ce module n'est pas l'intention de fournir des routines de validation, mais plutôt de fournir une commande de flux de validation simpliste et de promouvoir la réutilisation du code. Voici un exemple de cela ... Utilisez MyApp :: Validation; My $ App = myApp :: validation-> nouveaux (\% paramètres); Si ($ app-> valider ("login '," mot de passe ")) {...} else {imprimez rejoindre" \ n ", @ {$ app-> erreurs}; } Paquet MyApp :: Validation Utilisez le champ Oogly QW / Mixin /; # Définir un mixin, une sorte de modèle pouvant être inclus avec d'autres règles # à l'aide de la gestion de la directive Mixin 'par défaut' => {requis => 1, min_longueur => 4, max_longueur => 255}; # Définir une règle de validation de données pour le paramètre `Login` à l'aide de la mixine de valeur par défaut où le` Login` doit comporter entre 4 et 255 caractères et avoir # au moins un champ de lettre et de numéro 'Login' => {label => 'User Connexion ', MixIn =>' Par défaut ', validation => Sub {My ($ auto, $ Ceci, $ params) = @_; mon ($ nom, valeur $) = ($ ceci -> {label}, $ params -> {login}); Self-> Erreur ($ CI, "NOM $ doit contenir au moins une lettre et un numéro") sauf si ($ valeur = ~ / / || $ valeur = ~ / / ); }}; # Définir une règle de validation de données pour le paramètre `Password` à l'aide du champ # précédemment défini` Login` comme champ de mixin (modèle) 'Mot de passe' => {mixin_field => 'login', étiquette => "mot de passe de l'utilisateur '}; et Maintenant, pour mon deuxième et dernier acte final, en utilisant de l'extérieur à l'extérieur d'un colis. #! / usr / bin / perl utilise oogly qw /: tous /; My $ i = oogly (mixins => {fault => {requis => 1, min_length => 4, max_length => 255}}, champs => {login => {label => "Connexion utilisateur", mixin => 'Default', validation => Sub {My ($ auto, $ Ceci, $ params) = @_; mon ($ nom de nom, valeur $) = ($ ceci -> {nom}, $ params -> {login}) ; $ auto-> erreur ($ CI, "champ de champ $ doit contenir au moins une lettre et un numéro") si (valeur $! ~ / / $ VALEUR! ~ / / );}}, mot de passe => {mixin_field => 'login', étiquette => "mot de passe utilisateur '}},); # IMPORTANT, stockez la nouvelle instance créée par la fonction $ i-> Configuration $ o = $ i-> setup ({login => 'root', mot de passe => "..." ... "... ... Si ($ o-> valider) {...} Exigences: · Perl

Oogly Logiciels associés