Oog Een idee van gegevensvalidatie die misschien ideaal is!
Download nu

Oog Rangschikking & Samenvatting

Oog Tags

Perl-module gegevens gegevensvalidatie geldigmaking Gegevens centraliseren centraliseerorgaanoppervlak

Oog Beschrijving

Een gegevensvalidatieidee dat misschien ideaal is! De Oogly-module is een andere benadering van de gegevensvalidatie, het probeert om gegevensvalidatieregels te vereenvoudigen en te centraliseren om te zorgen voor droge (niet herhalen) Code.Het op. Het is niet de bedoeling van deze module om validatieroutines te verschaffen, maar in plaats daarvan een simplistische validatieflow-controle te geven en codehergebruik te bevorderen. Het volgende is een voorbeeld van dat ... Gebruik MyApp :: Validation; mijn $ app = myapp :: validatie-> nieuwe (\% params); if ($ app-> validate ('login', 'wachtwoord') {...} else {print join "\ n", @ {$ app-> fouten}; } Pakket MyApp :: Validatie Gebruik Oogly QW / MIXIN FIELD /; # Definieer een mixin, een soort sjabloon die kan worden opgenomen met andere regels # met behulp van de MIXIN-richtlijn Mixin 'Standaard' => {vereiste => 1, min_length => 4, max_length => 255}; # Definieer een gegevensvalidatieregel voor parameter `login 'met behulp van de standaard # MIXIN waar de` login` moet zijn tussen 4-255 tekens lang en hebben # ten minste één letter en nummer' login '=> {label =>' Login ', Mixin =>' Standaard ', validatie => Sub {My ($ self, $ this, $ params) = @_; mijn ($ naam, $ waarde) = ($ this -> {label}, $ params -> {login}); $ Self-> Fout ($ Dit, "$ naam moet ten minste één letter en nummer bevatten") tenzij ($ VALUE = ~ / / || $ VALUE = ~ / / ); }}; # Definieer een gegevensvalidatieregel voor parameter `Wachtwoord 'met behulp van de # eerder gedefinieerde veld' login 'als het MIXIN (sjabloon) veld' Wachtwoord '=> {MIXIN_FIELD =>' login ', label =>' Gebruikerswachtwoord '}; en Nu voor mijn tweede en laatste handeling, met behulp van Oogly buiten een pakket. #! / USR / BIN / PERL GEBRUIK OGLY QW /: ALL /; Mijn $ I = Oogly (MIXINS => {standaard => {vereiste => 1, min_length => 4, max_length => 255}}, velden => {login => {label => 'Gebruiker login', Mixin => 'Standaard', validatie => Sub {My ($ self, $ this, $ params) = @_; mijn ($ naam, $ waarde) = ($ This -> {naam}, $ params -> {login}) ; $ SELD-> FOUT ($ Dit, "Veld $ NAAM MOET MEER MINDATIONELIJKE LETTER EN NUMMER") INDIEN ($ VALUE! ~ / / $ -waarde! ~ / / );}}, wachtwoord => {mixin_field => 'login', label => 'Gebruikerswachtwoord'}},); # BELANGRIJK, Bewaar de nieuwe instantie die is gemaakt door de $ i-> Setup-functie $ O = $ i-> Setup ({login => 'root', wachtwoord => '...'}); if ($ o-> validate) {...} vereisten: · Perl

Oog Gerelateerde software