CPAN::Groonga

ot::BasicBot::Pluggable::Module::GitHub;
use base 'Bot::BasicBot::Pluggable::Module::GitHub';
use JSON;

our $VERSION = 0.02;
 
sub help {
    return <<HELPMSG;
Announce new/changed issues and pull re

hes. 
HELPMSG
}


sub tick {
    my $self = shift;

    my $issue_state_file = 'last-issues-state.json';
    
    my $seconds_between_checks = $self->get('poll_issues_interval') || 60 * 5;
    return 

Failed to open $issue_state_file - $!";
    my $json;
    { local $/; $json = <$fh> }
    close $fh;
    my $seen_issues = $json ? JSON::from_json($json) : {};


    # OK, for each channel, pull detai

ble::Module::GitHub;
use base 'Bot::BasicBot::Pluggable::Module::GitHub';
use LWP::Simple ();
use JSON;

sub help {
    return <<HELPMSG;
Monitors outstanding pull requests on a GitHub project.

Allow

http://github.com/api/v2/json/pulls/" . $project;
    my $json = LWP::Simple::get($url)
        or return "Unknown - error fetching $url";
    my $pulls = JSON::from_json($json)
        or return "Unk