Yet Another CPAN Grep

Catalyst-Plugin-Authentication-Credential-AOL ( M/MI/MIYAGAWA/Catalyst-Plugin-Authentication-Credential-AOL-0.02.tar.gz, MIYAGAWA, 2007; MetaCPAN )

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

Authentication::Credential::AOL;

use strict;
our $VERSION = '0.02';

use UNIVERSAL::require;
use JSON::Any;

sub setup {
    my $c = shift;
    my $config = $c->config->{authentication}->{aol} ||= {}

getInfo");
        $uri->query_form(
            devId => $config->{devId},
            f     => 'json',
            # referer needs to be an actual Referer: header, but since
            # we do redi

ailure: HTTP error " . $res->status_line);
            return;
        }

        my $data = JSON::Any->jsonToObj($res->content);
        unless (($data->{response}->{statusCode} || '') eq '200') {