CPAN::Groonga

package Net::Plurk;
use feature ':5.10';
use Moose;
use URI;
use JSON::Any;
use AnyEvent::HTTP;
use Net::Plurk::UserProfile;
use Net::Plurk::OAuth;
use DateTime;
use Data::Dumper;

use namespace::auto

{
            my $plurk = shift;
            # blah
        },
        );
    $p->listen;
    my $json = $p->callAPI( '/api');
    ...

=head1 EXPORT

A list of functions that can be exported.  You ca

file {
    my ($self, $user) = @_;
    my $json_data = $self->callAPI(
        '/Profile/getPublicProfile',
        user_id => $user,
    );
    return $json_data if $self->raw_output;
    $self->publ

', default => 'JSON::false');
has 'is_fan' => (is => 'ro', isa => 'Maybe[Object]', default => 'JSON::false');
has 'is_following' => (is => 'ro', isa => 'Maybe[Object]', default => 'JSON::false');

no 

' => (is => 'ro', isa => 'Maybe[Object]', default => 'JSON::false');
has 'email_confirmed' => (is => 'ro', isa => 'Maybe[Object]', default => 'JSON::false');

sub _build_display_name {
    my $self = 

;
has _request => (isa => 'Net::OAuth::Request', is => 'rw');
has json_parser => (isa => 'JSON::Any', is => 'ro', default => sub {JSON::Any->new()});

=head1 NAME

Net::Plurk::OAuth 

=head1 SYNOPSIS

er->{Reason});
		$self->_errorcode($header->{Status});
	    }
            $data = $self->json_parser->from_json($data);
            $w->send;
        }
    );
    $w->recv;
    return wantarray ? ($da