Yet Another CPAN Grep

XIRCD ( M/MI/MIKIHOSHI/XIRCD-0.0.1.tar.gz, MIKIHOSHI, 2008; MetaCPAN )

XIRCD/lib/XIRCD/Component/Twitter.pm ( view source; MetaCPAN )

:Component;

with qw(XIRCD::Role);

use Encode;
use HTTP::Request::Common;
use HTTP::Date ();
use JSON::Any;
use POE qw( Component::Client::HTTP );
use URI;


has 'apiurl'   => ( isa => 'Str', is => '

$status,) = get_args;

    my $req = HTTP::Request::Common::POST(
        self->apiurl . '/update.json',
        [ status => encode('utf-8',$status) ],
    );  
    $req->authorization_basic(self->use

tart => sub {
    debug "read twitter";

    my $uri = URI->new(self->apiurl . '/friends_timeline.json');
    $uri->query_form(since => HTTP::Date::time2str(self->since)) if self->since;
    self->sin