package DF::AAA;
use Mason::Moose;
extends qw(Plack::Middleware);
use Poet qw($cache $env $conf);

my %public = (
    '/login'            => 1,
    '/favicon.ico'      => 1,
);

method call ($psgi_env) {
    my $req = $env->app_class('Plack::Request')->new($psgi_env);

    my $login = $req->param('login') || $req->session->{login};
    my $passwd= $req->param('passwd') || $req->session->{passwd};

    my $authenticated = $login and $passwd;

    if ($authenticated or $public{$req->path_info}) {
        return $self->app->($psgi_env);
    }

    $req->session->{redir_to} = $req->request_uri;

    my $res = $req->new_response();
    $res->redirect( '/login');
    $res->finalize;
}