Started working on registration page on website, with validation

lib/Pear/LocalLoop.pm

@@ -30,6 +30,8 @@ sub startup {
   });
   my $config = $self->config;
 
+  $self->plugin('Pear::LocalLoop::Plugin::Validators');
+
   $self->plugin('Authentication' => {
     'load_user' => sub {
       my ( $c, $user_id ) = @_;
@@ -50,6 +52,8 @@ sub startup {
   my $r = $self->routes;
   $r->get('/')->to('root#index');
   $r->post('/')->to('root#auth_login');
+  $r->get('/register')->to('register#index');
+  $r->post('/register')->to('register#register');
   $r->any('/logout')->to('root#auth_logout');
   my $api = $r->under('/api' => sub {
     my $c = shift;

lib/Pear/LocalLoop/Controller/Register.pm

@@ -0,0 +1,31 @@
+package Pear::LocalLoop::Controller::Register;
+use Mojo::Base 'Mojolicious::Controller';
+
+sub index {
+  my $c = shift;
+
+  my $agerange_rs = $c->schema->resultset('AgeRange');
+  $agerange_rs->result_class('DBIx::Class::ResultClass::HashRefInflator');
+  $c->stash( ageranges => [ $agerange_rs->all ] );
+}
+
+sub register {
+  my $c = shift;
+  my $validation = $c->validation;
+  $validation->required('token')->in_resultset(
+    'accounttokenname',
+    $c->schema->resultset('AccountToken')->search_rs({used => 0}),
+  );
+  $validation->required('name', 'trim');
+  $validation->required('email')->email;
+  $validation->required('agerange')->in_resultset(
+    'agerangeid',
+    $c->schema->resultset('AgeRange'),
+  );
+
+  use Devel::Dwarn;
+  Dwarn $validation;
+  $c->redirect_to('/register');
+}
+
+1;

lib/Pear/LocalLoop/Plugin/Validators.pm

@@ -0,0 +1,19 @@
+package Pear::LocalLoop::Plugin::Validators;
+use Mojo::Base 'Mojolicious::Plugin';
+
+use Email::Valid;
+
+sub register {
+  my ( $plugin, $app, $conf ) = @_;
+
+  $app->validator->add_check( email => sub {
+    my ( $validation, $name, $email ) = @_;
+    return Email::Valid->address( $email ) ? undef : 1;
+  });
+  $app->validator->add_check( in_resultset => sub {
+    my ( $validation, $name, $value, $key, $rs ) = @_;
+    return $rs->search({ $key => $value })->count ? undef : 1;
+  });
+}
+
+1;