#!/usr/bin/env perl
use Mojolicious::Lite;

# Helpers = in app extensions
helper auth => sub {
    my $self = shift;

    return 1 if
      $self->param('username') eq 'bender' and
      $self->param('password') eq 'rodriguez';
};

get '/login' => sub { shift->render('login') };

post '/momcorp' => sub {
    my $self = shift;

    $self->render(text => 'denied') if !$self->auth;
    $self->render(text => 'Welcome to Momcorp!');
};

post '/momcorp/carol' => sub {
    my $self=shift;

    $self->render(text => 'denied') if !$self->auth;
    $self->render(text => 'Welcome, Carol!');
};

app->start;

__DATA__

@@ login.html.ep
<h1>Login</h1>
<form method="post" action="/momcorp">
    Username: <input type="text" name="username" />
    Password: <input type="text" name="password" />
    <input type="submit" value="Log In" />
</form>