Yet Another CPAN Grep

App-Beeminder-Hook ( L/LE/LETO/App-Beeminder-Hook-0.003.tar.gz, LETO, 2012; MetaCPAN )

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

package App::Beeminder::Hook;
use Dancer ':syntax';
use JSON::Any;
use autodie;
use Data::Dumper;

# ABSTRACT: Integrate Github and Beeminder

our $VERSION = '0.1';

# inspired by https://github.com/s

ram('payload');

    unless ($p) {
        my $response = JSON::Any->encode( { success => 0 } );
        return $response;
    }

    $p = JSON::Any->new->decode( $p );

    debug(Dumper($p));

    my

 config->{beeminder_goal},
    );
    debug "Running: $cmd";
    system $cmd;

    my $response = JSON::Any->encode( { success => 1 } );
};

get '/' => sub {
    'This is App::Beeminder::Hook';
};

tr