File Coverage

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

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	0	3	0.0
total	33	36	91.6

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

package Dancer::Plugin::Auth::RBAC::Credentials;
BEGIN {
  $Dancer::Plugin::Auth::RBAC::Credentials::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 errors {
    my ($self, @errors) = @_;
    my $user = session('user');
    push @{$user->{error}}, @errors;
    #return session 'user' => $user;
    session 'user' => $user;
    return @errors;
}

1;
__END__