/ 
Net-Plurk-0.06
River stage zero No dependents
/ Net::Plurk

NAME

Net::Plurk - The great new Net::Plurk!

VERSION

Version 0.06

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 (qualifier, content, %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.