Skype::Any - Skype API wrapper for Perl
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;
Skype::Any is Skype API wrapper. It was inspired by Skype4Py.
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
Skype::Any::Profile
call
Skype::Any::Call
message
Skype::Any::Message
chat
Skype::Any::Chat
chatmember
Skype::Any::ChatMember
chatmessage
Skype::Any::ChatMessage
voicemail
Skype::Any::VoiceMail
sms
Skype::Any::SMS
application
Skype::Any::Application
group
Skype::Any::Group
filetransfer
Skype::Any::FileTransfer
message_received
$skype->message_received(sub { my ($msg) = @_; ... });
$skype->create_chat_with($username, $message);
Send a $message to $username.
$skype->user($username)->chat->send_message($message);
run
Running an event loop.
api
Skype::Any::API
handler
$skype->handler->register($name, sub { ... });
See also Skype::Any::Handler.
Public API Reference
Takumi Akiyama <t.akiym at gmail.com>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Skype::Any, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Skype::Any
CPAN shell
perl -MCPAN -e shell install Skype::Any
For more information on module installation, please visit the detailed CPAN module installation guide.