Yet Another CPAN Grep

App-Cerberus ( D/DR/DRTECH/App-Cerberus-0.10.tar.gz, DRTECH, 2012; MetaCPAN )

App-Cerberus/lib/App/Cerberus.pm ( view source; MetaCPAN )

;
{
  $App::Cerberus::VERSION = '0.10';
}

use strict;
use warnings;
use JSON();
use Carp;
use Plack::Request;

our $json = JSON->new->utf8;

#===================================
sub new {
#==========

nown error' );
    }
    return [
        200,
        [ 'Content-Type' => 'application/json' ],
        [ $json->encode($response) ]
    ];

}

1;

# ABSTRACT: A pluggable Perl web service to preproc

l with just your own
code.

A query to L<App::Cerberus> is a simple HTTP GET, and the response is JSON.

=head1 PLUGINS

=head2 L<App::Cerberus::Plugin::GeoIP>

Uses L<Geo::IP> with the L<GeoLite City