Twitpic;
use warnings;
use strict;
use utf8;
use LWP::UserAgent;
use HTTP::Request::Common;
use JSON;
use Net::OAuth;
our $DYNAMIC_FILE_UPLOAD = 1;
=head1 NAME
Net::Twitpic - The great new Net::Tw
request_method => 'GET',
request_url => 'https://api.twitter.com/1/account/verify_credentials.json'
);
$oauth_sign->sign;
my %uploadparams = (
'key' => $self->{'twitpic_api'},
'message' =>
ps://api.twitter.com/1/account/verify_credentials.json',
'Content-Type' => 'form-data'
);
my $request = POST('http://api.twitpic.com/2/upload.json',\%uploadparams,%req_headers);
$self->{r} = $sel