Takumi Akiyama > Skype-Any-0.01 > Skype::Any

Download:
Skype-Any-0.01.tar.gz

Dependencies

Annotate this POD

CPAN RT

Open  0
View/Report Bugs
Module Version: 0.01   Source   Latest Release: Skype-Any-0.06

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.

name => 'Skype::Any' : Str
protocol => 8 : Num

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::Any::ChatMessage

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

Skype::Any::API

handler

  $skype->handler->register($name, sub { ... });

See also Skype::Any::Handler.

SEE ALSO ^

Public API Reference

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.

syntax highlighting: