Initial user admin page

lib/Pear/LocalLoop.pm

@@ -110,6 +110,11 @@ sub startup {
   $admin_routes->get('/tokens/:id')->to('admin-tokens#read');
   $admin_routes->post('/tokens/:id')->to('admin-tokens#update');
   $admin_routes->post('/tokens/:id/delete')->to('admin-tokens#delete');
+  $admin_routes->get('/users')->to('admin-users#index');
+  $admin_routes->post('/users')->to('admin-users#create');
+  $admin_routes->get('/users/:id')->to('admin-users#read');
+  $admin_routes->post('/users/:id')->to('admin-users#update');
+  $admin_routes->post('/users/:id/delete')->to('admin-users#delete');
 
   my $user_routes = $r->under('/')->to('root#under');
 

lib/Pear/LocalLoop/Controller/Admin/Users.pm

@@ -0,0 +1,33 @@
+package Pear::LocalLoop::Controller::Admin::Users;
+use Mojo::Base 'Mojolicious::Controller';
+
+has result_set => sub {
+  my $c = shift;
+  return $c->schema->resultset('User');
+};
+
+sub index {
+  my $c = shift;
+
+  my $user_rs = $c->result_set;
+  $user_rs->result_class('DBIx::Class::ResultClass::HashRefInflator');
+  $c->stash( users => [ $user_rs->all ] );
+}
+
+sub create {
+  my $c = shift;
+}
+
+sub read {
+  my $c = shift;
+}
+
+sub update {
+  my $c = shift;
+}
+
+sub delete {
+  my $c = shift;
+}
+
+1;