post '/adduser' => sub { create_user username=>param{'Username'}; user_password username => param{'Username'}, password => param{'Password'}; }; #### get '/admin' => require_role admin => sub { return 'You found the admin page!'; }; #### Provider# ls Base.pm Config.pm Database.pm Example.pm Unix.pm Provider# grep create_user * Provider# grep sub * Base.pm:sub new { Base.pm:sub realm_settings { shift->{realm_settings} || {} } Base.pm:sub realm_dsl { shift->{dsl} } Base.pm:sub match_password { Base.pm:sub encrypt_password { Base.pm: *$method = sub { Config.pm:sub authenticate_user { Config.pm:sub get_user_details { Config.pm:sub get_user_roles { Database.pm:sub authenticate_user { Database.pm:sub get_user_details { Database.pm:sub get_user_roles { Example.pm:sub users { Example.pm:sub authenticate_user { Example.pm:sub get_user_details { Example.pm:sub get_user_roles { Unix.pm:sub authenticate_user { Unix.pm:sub get_user_details { Unix.pm:sub get_user_roles {