Yet Another CPAN Grep

Bot-BasicBot-Pluggable-Module-ReviewBoard ( E/ES/ESTRAI/Bot-BasicBot-Pluggable-Module-ReviewBoard-1.0.1.tar.gz, ESTRAI, 2013; MetaCPAN )

Bot-BasicBot-Pluggable-Module-ReviewBoard/lib/Bot/BasicBot/Pluggable/Module/ReviewBoard.pm ( view source; MetaCPAN )



use base qw(Bot::BasicBot::Pluggable::Module);

use 5.010;
use LWP::Simple qw($ua);
use JSON qw( decode_json );


sub init {
	my $self = shift;

	$self->get( 'user_field_not_set' ) || $self->set( us

LE TESTING_DONE.};
}

sub _get_rb_data {
	my ($self, $rb) = @_;
	$self->ua;
	my $content = decode_json LWP::Simple::get( sprintf( "%s/api/review-requests/%d", $self->get('user_rb_url'), $rb ) );
	my $