Embperl Tests - Embperl::Form::Validate

[- use Embperl::Form::Validate; $epf = Embperl::Form::Validate -> new ([ [ -key => 'datum', -msg => 'Bitte Datum eintragen', required => 1, -msg => 'Datum überprüfen', matches_regex => '\d+\.\d+\.\d+', ], [ -key => 'stunden', -msg => 'Bitte Stunden eintragen', required => 1, -msg => 'Stundenzahl nicht numerisch', # fail-msg for next test -type => 'Number', # only Number and Default available -msg => 'Stundenzahl muß >0 sein', # fail-msg for next test gt => 0, ], [ -key => 'kommentar', -msg => 'Bitte (sinnvollen) Kommentar eingeben', required => 1, ], ], 'foo'); $failures = $epf -> validate_messages ; if (@$failures) { print OUT "Fehler:\n"; foreach $msg (@$failures) { print OUT "$msg
\n"; } } -]
stunden
datum
kommentar