File Coverage

blib/lib/Moxy/Session/State/BasicAuth.pm

Criterion	Covered	Total	%
statement	9	14	64.2
branch	0	2	0.0
condition			n/a
subroutine	3	7	42.8
pod	1	4	25.0
total	13	27	48.1

package Moxy::Session::State::BasicAuth;
use strict;
use warnings;
use HTTP::Session::State::Base;

sub realm { 'Moxy needs basic auth.Only for identification.Password is dummy.' }

sub new {
    bless {permissive => 1}, shift;
}

sub get_session_id {
    my ( $self, $req ) = @_;
    $ENV{HTTP_AUTHORIZATION} || $req->header('Authorization');
}

sub response_filter { }

1;