Untitled

Oauth test

use LWP::UserAgent;

use Data::Dumper;

use OAuth::Lite::Consumer;

my $c_key    = ”;

my $c_secret = ”;

my $a_token  = ”;

my $a_secret = ”;

my $consumer = new OAuth::Lite::Consumer(

    ’consumer_key’    => $c_key,

    ’consumer_secret’ => $c_secret,

);

my $token = new OAuth::Lite::Token(

    ’token’  => $a_token,

    ’secret’ => $a_secret

);

my $oauth_request = $consumer->gen_oauth_request(

    method => ‘POST’,

    url    => ‘http://twitter.com/statuses/update.xml’,

    token  => $token,

    params => { status => ’ The test is success. I will goto bed. ’ }

);

my $twt_response = $ua->request($oauth_request);

print Dumper(\%$twt_response);

exit;