File Coverage

blib/lib/Dancer/Plugin/Auth/RBAC/Permissions.pm

Criterion	Covered	Total	%
statement	17	27	62.9
branch	1	4	25.0
condition			n/a
subroutine	6	8	75.0
pod	0	4	0.0
total	24	43	55.8

# ABSTRACT: Dancer::Plugin::Auth::RBAC Permissions base class and guide!

package Dancer::Plugin::Auth::RBAC::Permissions;
BEGIN {
  $Dancer::Plugin::Auth::RBAC::Permissions::VERSION = '1.110720';
}

use strict;
use warnings;

use Dancer qw/:syntax/;


sub new {
    my $class = shift;
    my $self  = {};
    bless $self, $class;
    return $self;
}

sub credentials {
    my $self = shift;
    if (@_) {
        return session 'user' => @_;
    }
    else {
        return session('user');
    }
}

sub permissions {
    my $self = shift;
    if (@_) {
        return session 'roles' => @_;
    }
    else {
        return session('roles');
    }
}

sub errors {
    my ($self, @errors) = @_;
    my $user = session('user');
    push @{$user->{error}}, @errors;
    return session 'user' => $user;
}

1;
__END__