File Coverage

blib/lib/PlugAuth/Client/Tiny/Apache2AuthzHandler.pm

Criterion	Covered	Total	%
statement	15	17	88.2
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	21	23	91.3

package PlugAuth::Client::Tiny::Apache2AuthzHandler;

use strict;
use warnings;
use 5.012;
use PlugAuth::Client::Tiny;
use Apache2::Access      ();
use Apache2::RequestRec  ();
use Apache2::RequestUtil ();
use Apache2::Const -compile => qw(OK HTTP_UNAUTHORIZED);

# ABSTRACT: Apache authorization handler for PlugAuth
our $VERSION = '0.01'; # VERSION


sub handler
{
  my($r) = @_;

  my $auth   = PlugAuth::Client::Tiny->new(url => $ENV{PLUGAUTH_URL});
  my $prefix = $ENV{PLUGAUTH_PREFIX} // '';

  my $user = $r->user;
  if($user && $auth->authz($user, $r->method, $prefix . $r->uri))
  {
    return Apache2::Const::OK;
  }
  else
  {
    $r->note_basic_auth_failure;
    return Apache2::Const::HTTP_UNAUTHORIZED;
  }
}

1;

__END__