Yet Another CPAN Grep

Mackerel-Webhook-Receiver ( S/SO/SONGMU/Mackerel-Webhook-Receiver-0.01.tar.gz, SONGMU, 2015; MetaCPAN )

Mackerel-Webhook-Receiver/lib/Mackerel/Webhook/Receiver.pm ( view source; MetaCPAN )

Mackerel::Webhook::Receiver;
use 5.008001;
use strict;
use warnings;

our $VERSION = "0.01";

use JSON;
use Plack::Request;

use Mackerel::Webhook::Receiver::Event;

use Class::Accessor::Lite (
    ne

) {
            return [400, [], ['BAD REQUEST']];
        }

        my $payload = eval { decode_json $req->content }
            or return [400, [], ['BAD REQUEST']];

        my $event_name = $payl