lib/SGN/Authentication/User.pm

   1 =head1 NAME
   2
   3 SGN::Authentication::User - a Catalyst compatible user class
   4
   5 =head1 DESCRIPTION
   6
   7 Implemented according to Catalyst::Plugin::Authentication::Internals
   8
   9 =head1 AUTHOR
  10
  11 Lukas Mueller <lam87@cornell.edu>
  12
  13 =cut
  14
  15 use strict;
  16 use warnings;
  17
  18 package SGN::Authentication::User;
  19
  20 use base "Catalyst::Authentication::User";
  21
  22 sub id {
  23     my $self = shift;
  24     return $self->{user}->get_username();
  25 }
  26
  27 sub supported_features {
  28     my $self = shift;
  29     return { roles =>1,  self_check=>1};
  30 }
  31
  32 sub get_object {
  33     my $self = shift;
  34     my $c = shift;
  35     return $self->{user};
  36 }
  37
  38 sub set_object {
  39     my $self = shift;
  40     $self->{user} = shift;
  41 }
  42
  43 sub roles {
  44     my $self = shift;
  45     return $self->{user}->get_roles();
  46 }
  47
  48 sub check_roles {
  49     my $self = shift;
  50     my @roles = @_;
  51     my %has_roles = ();
  52     map { $has_roles{$_} = 1; } $self->roles();
  53
  54     foreach my $r (@roles) {
  55         if (!exists($has_roles{$r})) {
  56             return 0;
  57         }
  58     }
  59     return 1;
  60 }
  61
  62 1;