add user list

Readme.markdown

@@ -33,6 +33,7 @@ This is an example Mojolicious app.  Its goals are:
 * ~~more tests for authentication, registration~~
 * ~~add authorization ( logged in user can see some things, but not others )~~
 * tests for authorization
+* tests for user routes
 * ~~catch-all route~~, switch routes to use over() conditions
 * Mojolicious plugins: CSRFProtect, VaildateTiny, Toto
 * ~~user can create document objects into mongo~~

lib/Lrrr.pm

@@ -60,6 +60,8 @@ sub startup {
     }
   );
 
+  $r->get('/users')->to( controller => 'users', action => 'list' );
+
   $r->get(
     '/hidden' => sub {
       $self = shift;

lib/Lrrr/Authorization.pm

@@ -4,8 +4,10 @@ use strict;
 use warnings;
 
 my %roles = (
-  admin => { create_user => 1, delete_user => 1 },
-  guest => { foo         => 1 }
+  admin =>
+    { create_user => 1, delete_user => 1, create_post => 1, delete_post => 1 },
+  author => { create_post => 1 },
+  guest  => { read_posts  => 1 }
 );
 
 sub has_priv {

lib/Lrrr/Controller/Users.pm

@@ -0,0 +1,17 @@
+package Lrrr::Controller::Users;
+
+use strict;
+use warnings;
+
+use Mojo::Base 'Mojolicious::Controller';
+
+# This action will render a template
+sub list {
+  my $self = shift;
+
+  $self->render( template => 'userlist', format => 'html' );
+
+  return;
+}
+
+1;

templates/userlist.html.ep

@@ -0,0 +1,10 @@
+% layout 'default';
+% title 'User List';
+<h2>User List</h2>
+
+% my $docs = mango->db->collection('users')->find;
+<ul>
+% while ( my $doc = $docs->next ) {
+<li><%= $doc->{username} %>, <%= $doc->{role} %></li>
+% }
+</ul>