AnyEvent-Plurk

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

NAME
    AnyEvent::Plurk - plurk interface for AnyEvent-based programs

SYNOPSIS
        my $p = AnyEvent::Plurk->new(
            username => $username,
            password => $password
        );
        $p->reg_cb(
            unread_plurks => sub {
                my ($p, $plurks) = @_;
                is(ref($plurks), "ARRAY", "Received latest plurks");
            }
        );

        my $v = AE::cv;
        $p->start;

lib/AnyEvent/Plurk.pm  view on Meta::CPAN

   my $self  = $class->SUPER::new(@_);

   unless (defined $self->{api_key}) {
      croak "no 'api_key' given to AnyEvent::Plurk\n";
   }

   unless (defined $self->{username}) {
      croak "no 'username' given to AnyEvent::Plurk\n";
   }

   unless (defined $self->{password}) {
      croak "no 'password' given to AnyEvent::Plurk\n";
   }

   $self->{__cookie_jar} = {};
   return $self
}

sub login {
    my $self = shift;
    my $cb   = shift;

    $self->send_request(
        "Users/login", {
            username => $self->{username},
            password => $self->{password}
        }
    )
}

sub _start_polling {
    my $self = shift;
    $self->{__polling_time_offset} ||= current_time_offset;

    $self->send_request(
        "Polling/getPlurks",

lib/AnyEvent/Plurk.pm  view on Meta::CPAN

__END__

=head1 NAME

AnyEvent::Plurk - plurk interface for AnyEvent-based programs

=head1 SYNOPSIS

    my $p = AnyEvent::Plurk->new(
        username => $username,
        password => $password
    );
    $p->reg_cb(
        unread_plurks => sub {
            my ($p, $plurks) = @_;
            is(ref($plurks), "ARRAY", "Received latest plurks");
        }
    );

    my $v = AE::cv;
    $p->start;

t/addPlurk.t  view on Meta::CPAN

use common::sense;
use Test::More;

unless($ENV{TEST_ANYEVENT_PLURK}) {
    plan(skip_all => "define TEST_ANYEVENT_PLURK env to test.")
}

use AnyEvent;
use AnyEvent::Plurk;

my ($api_key,$username,$password) = split(" ", $ENV{TEST_ANYEVENT_PLURK});

my $p = AnyEvent::Plurk->new(
    api_key  => $api_key,
    username => $username,
    password => $password
);

$p->login;

my $plurk = $p->add_plurk(rand ." $$ Lorem ipsum $$");

ok($plurk->{plurk_id} > 0);

$p->delete_plurk($plurk->{plurk_id});

t/simple.t  view on Meta::CPAN

use common::sense;
use Test::More;

unless($ENV{TEST_ANYEVENT_PLURK}) {
    plan(skip_all => "define TEST_ANYEVENT_PLURK env to test.")
}

use AnyEvent;
use AnyEvent::Plurk;

my ($api_key,$username,$password) = split(" ", $ENV{TEST_ANYEVENT_PLURK});

my $p = AnyEvent::Plurk->new(
    api_key  => $api_key,
    username => $username,
    password => $password
);

$p->reg_cb(
    unread_plurks => sub {
        my ($p, $plurks) = @_;
        is(ref($plurks), "ARRAY", "Received latest plurks");

        for my $pu (@$plurks) {
            is(ref($pu->{owner}), "HASH");
        }