view release on metacpan or  search on metacpan

lib/Catalyst/Authentication/Store/Crowd/User.pm  view on Meta::CPAN

package Catalyst::Authentication::Store::Crowd::User;

use Moose;
extends 'Catalyst::Authentication::User';

has 'info' => (is => 'ro', isa => 'HashRef');

sub id { shift->get('name'); }

sub supported_features { return { session => 1 }; }

sub get {
    my ($self, $field) = @_;
    return $self->info->{$field};
}