Yet Another CPAN Grep

Plack-Middleware-Auth-BrowserID ( B/BO/BOLILA/Plack-Middleware-Auth-BrowserID-0.0.7.tar.gz, BOLILA, 2013; MetaCPAN )

Plack-Middleware-Auth-BrowserID/lib/Plack/Middleware/Auth/BrowserID.pm ( view source; MetaCPAN )

ce );
use Plack::Response;
use Plack::Session;

use LWP::Protocol::https;
use LWP::UserAgent;
use JSON;


sub prepare_app {
    my $self = shift;

    $self->audience or croak 'audience is not set';
}

>method eq 'POST' ) {
        my $uri  = 'https://verifier.login.persona.org/verify';
        my $json = {
            assertion => $req->body_parameters->{'assertion'},
            audience  => $self

T', $uri );
        $persona_req->header( 'Content-Type' => 'application/json' );
        $persona_req->content( to_json( $json, { utf8 => 1 } ) );

        my $ua = LWP::UserAgent->new( ssl_opts => {