File Coverage

lib/CatalystX/Eta/Controller/CheckRoleForPOST.pm

Criterion	Covered	Total	%
statement	12	14	85.7
branch	2	4	50.0
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	16	20	80.0

package CatalystX::Eta::Controller::CheckRoleForPOST;

use Moose::Role;

requires 'list_POST';

around list_POST => \&CheckRoleForPOST_around_list_POST;

sub CheckRoleForPOST_around_list_POST {
    my $orig   = shift;
    my $self   = shift;
    my $config = $self->config;

    my ( $c, $id ) = @_;
    my $do_detach = 0;

    if ( exists $self->config->{create_roles} ) {
        if ( !$c->check_any_user_role( @{ $config->{create_roles} } ) ) {
            $self->status_forbidden( $c, message => "insufficient privileges" );
            $c->detach;
        }

    }
    $self->$orig(@_);
}

1;