AnyEvent-MyPeopleBot-Client

AnyEvent-MyPeopleBot-Client is a highlevel MyPeopleBot API wrapper.

MyPeopleBot is like mobile instant messaging service by daum corporation.

SYNOPSIS

use AnyEvent::HTTPD;
use AnyEvent::Mepeople::Client;
my $client = AnyEvent::MyPeopleBot::Client->new(
    apikey => 'xxxx',
);

my $httpd = AnyEvent::HTTPD->new(port => 8080);
$httpd->reg_cb(
    '/' => sub {
        my $action  = $req->parm('action');
        my $buddyId = $req->parm('buddyId');
        my $groupId = $req->parm('groupId');
        my $content = $req->parm('content');

        $req->respond({ content => [ 'text/plain', "AnyEvent::MyPeopleBot::Client" ]});
        if ($action =~ /^sendFrom/) {
            $client->send($buddyId || $groupId, 'hi', sub {
                my $json = shift;
                print "$json\n";
            });
        }
    }
);

$httpd->run;