NAME
Skype::Any - Skype API wrapper for Perl
SYNOPSIS
use Skype::Any;
# ping-pong bot
my $skype = Skype::Any->new();
$skype->message_received(sub {
my ($msg) = @_;
my $body = $msg->body;
if ($body eq 'ping') {
$msg->chat->send_message('pong');
}
});
$skype->run;DESCRIPTION
Skype::Any is Skype API wrapper. It was inspired by Skype4Py.
METHODS
new
my $skype = Skype::Any->new();Create new instance of Skype::Any. Notice that necessary Skype client is running.
object
$skype->object($obj => $id);Create new instance of Skype::Any::Object::*.
user
$skype->user($id);Create new instance of Skype::Any::User.
$skype->user(sub { ... })Register _ (default) handler.
Alias for:
$skype->handler->register('USER', +{_ => sub { ... }})
$skype->user($name => sub { ... }, ...)Register $name handler.
profile
call
message
chat
chatmember
chatmessage
voicemail
sms
application
group
filetransfer
message_received
$skype->message_received(sub { my ($msg) = @_; ... });message_received
$skype->create_chat_with($username, $message);Send a $message to $username.
Alias for:
$skype->user($username)->chat->send_message($message);run
Running an event loop.
ATTRIBUTES
api
handler
$skype->handler->register($name, sub { ... });See also Skype::Any::Handler.
SEE ALSO
AUTHOR
Takumi Akiyama <t.akiym at gmail.com>
LICENSE
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.