File Coverage

blib/lib/PAGI/Middleware/Session/State/Bearer.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition	2	5	40.0
subroutine	4	4	100.0
pod	1	1	100.0
total	20	23	86.9

package PAGI::Middleware::Session::State::Bearer;

use strict;
use warnings;
use parent 'PAGI::Middleware::Session::State::Header';

=head1 NAME

PAGI::Middleware::Session::State::Bearer - Bearer token session ID transport

=head1 SYNOPSIS

    use PAGI::Middleware::Session::State::Bearer;

    my $state = PAGI::Middleware::Session::State::Bearer->new();

    # Extract session ID from Authorization: Bearer
    my $id = $state->extract($scope);

=head1 DESCRIPTION

A convenience subclass of L that
extracts an opaque bearer token from the C header. This is
intended for opaque session tokens, not JWTs.

Defaults to C 'Authorization'> and
C qr/^Bearer\s+(.+)$/i>. Both can be overridden via
constructor arguments.

=cut

sub new {
    my ($class, %args) = @_;

    $args{header_name} //= 'Authorization';
    $args{pattern}     //= qr/^Bearer\s+(.+)$/i;

    return $class->SUPER::new(%args);
}

1;

__END__