summaryrefslogtreecommitdiff
path: root/lib/TUWF/Validate.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/TUWF/Validate.pm')
-rw-r--r--lib/TUWF/Validate.pm5
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/TUWF/Validate.pm b/lib/TUWF/Validate.pm
index adeb1d6..f7b0aa4 100644
--- a/lib/TUWF/Validate.pm
+++ b/lib/TUWF/Validate.pm
@@ -62,6 +62,11 @@ our %default_validations = (
# error object to ensure that.
+{ type => 'scalar', func => sub { $_[0] =~ $reg ? 1 : { regex => "$reg", got => $_[0] } } }
},
+ enum => sub {
+ my @l = ref $_[0] eq 'HASH' ? sort keys %{$_[0]} : ref $_[0] eq 'ARRAY' ? @{$_[0]} : ($_[0]);
+ my %opts = map +($_,1), @l;
+ +{ type => 'scalar', func => sub { $opts{ (my $v = $_[0]) } ? 1 : { expected => \@l, got => $_[0] } } }
+ },
minlength => _length(sub { $_[0] >= $_[1] }),
maxlength => _length(sub { $_[0] <= $_[1] }),