File Coverage

blib/lib/Mojolicious/Plugin/Web/Auth.pm

Criterion	Covered	Total	%
statement	9	35	25.7
branch	0	12	0.0
condition	0	11	0.0
subroutine	3	6	50.0
pod	1	1	100.0
total	13	65	20.0

package Mojolicious::Plugin::Web::Auth;

use strict;
use warnings;

our $VERSION = '0.17';

use Mojo::Base 'Mojolicious::Plugin';

sub register {
    my ( $self, $app, $args ) = @_;
    my $module = delete $args->{module} or die "Missing mandatory parameter: module";
    my $klass  = join '::', __PACKAGE__, 'Site', $module;
    if ($Mojolicious::VERSION >= 5.81) {
        Mojo::Loader::load_class($klass);
    } else {
        Mojo::Loader->load($klass);
    }

    my $moniker           = $klass->moniker();
    my $authenticate_path = delete $args->{authenticate_path} || "/auth/${moniker}/authenticate";
    my $callback_path     = delete $args->{callback_path}     || "/auth/${moniker}/callback";

    # handlers
    my $on_finished = delete $args->{on_finished} or die "Missing mandatory parameter: on_finished";
    my $on_error    = delete $args->{on_error} || sub {
        my ( $c, $err ) = @_;
        die "Authentication error in $module: $err";
    };

    # auth object
    my $auth = $klass->new(%$args);

    $app->hook( before_dispatch => sub {
        my $c    = shift;
        my $path = $c->req->url->path;
        if ( $path->contains($authenticate_path) ) {
            my $forwarded_proto = $c->req->headers->header('x-forwarded-proto');
            $c->req->url->base->scheme('https') if (defined $forwarded_proto && $forwarded_proto eq 'https');
            my $callback = $c->req->url->path($callback_path)->to_abs;
            return $c->redirect_to( $auth->auth_uri( $c, $callback ) );
        }
        elsif ( $path->contains($callback_path) ) {
            return $auth->callback( $c, +{
                on_finished => sub {
                    $on_finished->($c, @_);
                },
                on_error => sub {
                    $on_error->($c, @_);
                },
            } );
        }
    } );

    return $self;
}

1;

__END__