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 {