File Coverage

blib/lib/Yancy/Plugin/Roles.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	6	6	100.0
condition	2	4	50.0
subroutine	6	6	100.0
pod	1	3	33.3
total	41	45	91.1

package Yancy::Plugin::Roles;
our $VERSION = '1.087';
# ABSTRACT: Role-based access controls (RBAC)

#pod =head1 SYNOPSIS
#pod
#pod     plugin Yancy => ...;
#pod     plugin Auth => ...;
#pod     plugin Roles => {
#pod         schema => 'roles',
#pod         userid_field => 'username',
#pod     };
#pod
#pod =head1 DESCRIPTION
#pod
#pod B This module is C and its API may change before
#pod Yancy v2.000 is released.
#pod
#pod This plugin provides user authorization based on roles. Roles are
#pod created by using the L method. User accounts are provided
#pod by L (or a subclass). Accounts are mapped to roles
#pod in the database.
#pod
#pod =head1 CONFIGURATION
#pod
#pod This plugin has the following configuration options.
#pod
#pod =head2 schema
#pod
#pod The name of the Yancy schema that holds role memberships. Required.
#pod
#pod =head2 userid_field
#pod
#pod The name of the field in the schema which is the user's identifier.
#pod This field should be named the same in both the user schema and the
#pod roles schema.
#pod
#pod =head2 role_field
#pod
#pod The name of the field in the schema which holds the role. Defaults to
#pod C.
#pod
#pod =head1 HELPERS
#pod
#pod This plugin has the following helpers.
#pod
#pod =head2 yancy.auth.has_role
#pod
#pod Return true if the current user has the given role.
#pod
#pod     get '/admin' => sub {
#pod         my $c = shift;
#pod         return $c->reply->not_found unless $c->yancy->auth->has_role( 'admin' );
#pod     };
#pod
#pod =head2 yancy.auth.require_role
#pod
#pod Validate there is a logged-in user and that the user belongs to the given
#pod role(s). Returns a callback that can be used in C.
#pod
#pod     my $require_admin = $app->yancy->auth->require_role( 'admin' );
#pod     my $admin_routes = $app->routes->under( '/admin', $require_admin );
#pod
#pod =head1 SEE ALSO
#pod
#pod L
#pod
#pod =cut

use Mojo::Base 'Mojolicious::Plugin';
use Yancy::Util qw( currym );

has schema =>;
has userid_field =>;
has role_field => 'role';

sub register {
    my ( $self, $app, $config ) = @_;
    my $schema_name = $config->{schema}
        || die "Error configuring Roles plugin: No schema defined\n";
    $self->schema( $schema_name );

    my $schema = $app->yancy->schema( $schema_name )
        || die sprintf(
            q{Error configuring Roles plugin: Schema "%s" not found}."\n",
            $schema_name,
        );

    $self->userid_field( $config->{userid_field} );
    $self->role_field( $config->{role_field} ) if $config->{role_field};
    $app->helper(
        'yancy.auth.require_role' => currym( $self, 'require_role' ),
    );
    $app->helper(
        'yancy.auth.has_role' => currym( $self, 'has_role' ),
    );
}

sub require_role {
    my ( $self, $c, $role ) = @_;
    return sub {
        my ( $c ) = @_;
        return 1 if $self->has_role( $c, $role );
        # XXX: Create `reply->unauthorized` helper
        $c->stash(
            template => 'yancy/auth/unauthorized',
            status => 401,
        );
        $c->respond_to(
            json => {},
            html => {},
        );
        return undef;
    }
}

sub has_role {
    my ( $self, $c, $role ) = @_;
    my $user = $c->yancy->auth->current_user or return undef;
    my %search = (
        $self->userid_field => $user->{ $self->userid_field },
        $self->role_field => $role,
    );
    my ( $has_role ) = $c->yancy->list( $self->schema, \%search );
    return !!$has_role;
}

1;

__END__