typester/p5-AnyEvent-Lingr — pull request #1 by xaicron (2013-03-16 20:21:38+00:00)
Title: Added callback argumentes for say()

I want get response data from `say()`.
In the case on `lingr2irc`, Cannot be determined a received message from the IRC or any other client.

I'll want cache `message.id`, And lookup it in `on_event` callback.

For example:
```perl
my $sent_message = {};

$lingr->say('perl_jp', 'Hi!', sub {
my $res = shift;
$sent_message->{ $res->{message}{id} } = 1;
});

$lingr->on_event(sub {
my $event = shift;
if ($msg = $event->{message}) {
if ($sent_message->{ $msg->{id} }) {
# this message was sent from myself
return;
}
...
}
});
```

thanks.