The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Net-Plurk-0.09
River stage zero No dependents
++
/ Net::Plurk

NAME

Net::Plurk - A perl interface to Plurk API

VERSION

Version 0.09

SYNOPSIS

Quick summary of what the module does.

Perhaps a little code snippet.

    use Net::Plurk;
    my $api_key = $PLURKAPIKEY // "dKkIdUCoHo7vUDPjd3zE0bRvdm5a9sQi";
    my $user = $PLURKUSER // 'nobody';
    my $pass = $PLURKPASS // 'nopass';
    my $p = Net::Plurk->new(api_key => $api_key);
    my $profile = $p->login(user => $user, pass => $pass );
    $p->add_events(
        on_new_plurk => sub {
            my $plurk = shift;
            use Data::Dumper; warn Dumper $plurk;
        },
        on_private_plurk => sub {
            my $plurk = shift;
            # blah
        },
        );
    $p->listen;
    my $json = $p->api( path => '/api');
    ...

EXPORT

A list of functions that can be exported. You can delete this section if you don't export anything, such as for a purely object-oriented module.

FUNCTIONS

api

Everything from here

is_logged_in

Check if logged in, we use /API/Blocks/get to check the return JSON contains 'error_text' => 'Requires login'

login

Get the request url and return Net::Plurk::User

logout

Just logout, should alway return 1

_get_unique_id

given nick_name, return unique_id

get_public_profile

call /Profile/getPublicProfile

get_new_plurks

call /Polling/getPlurks arguments => offset: Return plurks newer than offset, formatted as 2009-6-20T21:55:34.

karma

    return logined user's karma, or specify user => 'who'

follow

    return 1 if followed someone, 0 otherwise (see api_errormsg)

unfollow

    return 1 if unfollowed someone, 0 otherwise (see api_errormsg)

add_plurk

    add_plurk ($content, $qualifier %opt)
    %opt: limited_to, no_comment, lang

AUTHOR

Cheng-Lung Sung, <clsung at cpan.org>

BUGS

Please report any bugs or feature requests to bug-net-plurk at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Net-Plurk. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Net::Plurk

You can also look for information at:

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

Copyright 2009~2010 Cheng-Lung Sung, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.