Yet Another CPAN Grep

Catalyst-Authentication-Credential-Crowd ( K/KE/KEEKUNG/Catalyst-Authentication-Credential-Crowd-0.07.tar.gz, KEEKUNG, 2014; MetaCPAN )

Catalyst-Authentication-Credential-Crowd/lib/Catalyst/Authentication/Credential/Crowd.pm ( view source; MetaCPAN )

ict;
use warnings;

our $VERSION = '0.07';

use Moose;
use HTTP::Request;
use LWP::UserAgent;
use JSON;

has 'authen_url' => (
    is => 'ro',
    isa => 'Str',
    required => '1',
    default => sub

new;
    my $uri = $self->authen_url."?username=$username";
    my $json_hash = { value => $password };
    my $json = to_json( $json_hash );
    my $req = HTTP::Request->new( 'POST',  $uri );
    $re

sword}
    );
    $req->header('Accept' => 'application/json');
    $req->header('Content-Type' => 'application/json');
    $req->content( $json );

    my $response = $ua->request( $req );
    return