Yet Another CPAN Grep

Hubot-Adapter-Mypeople ( A/AA/AANOAA/Hubot-Adapter-Mypeople-0.0.6.tar.gz, AANOAA, 2013; MetaCPAN )

Hubot-Adapter-Mypeople/lib/Hubot/Adapter/Mypeople.pm ( view source; MetaCPAN )

ose;
use namespace::autoclean;

extends 'Hubot::Adapter';

use AnyEvent::MyPeopleBot::Client;
use JSON::XS;
use Encode 'decode_utf8';

use Hubot::Message;

has httpd => (
    is         => 'ro',
    l

name};

    $self->client->profile(
        $buddyId,
        sub {
            my $data = decode_json(shift);
            $user->{name} = $data->{buddys}[0]{name};
            $cb->($user);
        }

oups ) {
        $self->client->exit(
            $groupId,
            sub {
                my $json = shift;
                return if $self->count_groups != ++$exit;

                $self->httpd-