Yet Another CPAN Grep

Test-Bot ( R/RE/REVMISCHA/Test-Bot-0.09.tar.gz, REVMISCHA, 2011; MetaCPAN )

Test-Bot/lib/Test/Bot/Source/GitHub.pm ( view source; MetaCPAN )

'Test::Bot';
with 'Test::Bot::Source';

use AnyEvent;
use Twiggy::Server;
use Plack::Request;
use JSON;
use DateTime::Format::ISO8601;
use Test::Bot::Commit;
use Carp qw/croak/;

has '_http_server' =>

 got a set of commits
sub parse_payload {
    my ($self, $payload) = @_;

    my $parsed = decode_json($payload) or return;

    my @commits;
    foreach my $commit_info (@{ $parsed->{commits} || []})