view release on metacpan or  search on metacpan

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

    my $init_hash = {};
    $init_hash->{find_user_url} = $_[0]->{find_user_url} if defined $_[0]->{find_user_url};
    $init_hash->{app} = $_[0]->{app} if defined $_[0]->{app};
    return $class->$orig( %$init_hash );
};

sub find_user {
    my ($self, $info) = @_;
    my $response = $self->_crowd_get_user( $info->{username} );
    if ( $response->is_success ){
        my $crowd_user_info = from_json( $response->decoded_content );
        return Catalyst::Authentication::Store::Crowd::User->new({
            info => $crowd_user_info
        });
    }
    return;
}

sub from_session {
    my ( $self, $c, $user ) = @_;
    return $user;