File Coverage

blib/lib/Plack/Middleware/DoormanAuthentication.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	6	6	100.0
condition	4	6	66.6
subroutine	7	7	100.0
pod	2	2	100.0
total	45	47	95.7

package Plack::Middleware::DoormanAuthentication;
use 5.010;
use strict;

our $VERSION   = "0.06";
our $AUTHORITY = "http://gugod.org";

use parent 'Doorman::PlackMiddleware';

use Plack::Util::Accessor qw(authenticator);
use Plack::Session;

sub is_sign_in {
    $_[0]->session_get("authenticated");
}

sub call {
    my ($self, $env) = @_;

    $self->prepare_call($env);

    $env->{ $self->fq } = $self;

    my $request = Plack::Request->new($env);

    if ($request->method eq 'POST' and $request->path eq $self->sign_in_path) {
        my ($success, $error_message) = $self->authenticator->($self, $self->{env});
        if ($success) {
            $self->session_set("authenticated" => $success);
        }
        else {
            $self->env_set("error" => $error_message);
        }
    }
    elsif ($request->method eq 'GET' and $request->path eq $self->sign_out_path) {
        $self->session_remove("authenticated");
    }

    return $self->app->($env);
}

1;

__END__