a few more validation examples

mojolicious · Oct 2, 2013 · d2fbc3b · d2fbc3b
1 parent 9ba4e88
commit d2fbc3b
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git a/lib/Mojolicious/Validator.pm b/lib/Mojolicious/Validator.pm
@@ -52,6 +52,9 @@ Mojolicious::Validator - Validate form data
 
   my $validator  = Mojolicious::Validator->new;
   my $validation = $validator->validation;
+  $validation->input({foo => 'bar'});
+  $validation->required('foo')->regex(qr/ar$/);
+  say $validation->param('foo');
 
 =head1 DESCRIPTION
 
@@ -70,7 +73,7 @@ Value needs to be equal to the value of another field.
 
 =head2 in
 
-  $validation->in('foo', 'bar', 'baz');
+  $validation->in(qw(foo bar baz));
 
 Value needs to match one of the values in the list.
 

diff --git a/lib/Mojolicious/Validator/Validation.pm b/lib/Mojolicious/Validator/Validation.pm
@@ -11,8 +11,8 @@ sub AUTOLOAD {
   my $self = shift;
 
   my ($package, $method) = our $AUTOLOAD =~ /^([\w:]+)::(\w+)$/;
-  Carp::croak "Undefined subroutine &${package}::$method called"
-    unless Scalar::Util::blessed $self && $self->isa(__PACKAGE__);
+  croak "Undefined subroutine &${package}::$method called"
+    unless blessed $self && $self->isa(__PACKAGE__);
 
   croak qq{Can't locate object method "$method" via package "$package"}
     unless $self->validator->checks->{$method};
@@ -94,6 +94,9 @@ Mojolicious::Validator::Validation - Perform validations
   my $validator = Mojolicious::Validator->new;
   my $validation
     = Mojolicious::Validator::Validation->new(validator => $validator);
+  $validation->input({foo => 'bar'});
+  $validation->required('foo')->in(qw(bar baz));
+  say $validation->param('foo');
 
 =head1 DESCRIPTION