Changeset 7777ac2 for perl/modules/Facebook/lib/Facebook/Graph/Publish.pm
- Timestamp:
- Sep 20, 2011, 11:15:32 PM (13 years ago)
- Branches:
- master, release-1.10, release-1.9
- Children:
- b7fa912
- Parents:
- 2a42248
- git-author:
- Edward Z. Yang <ezyang@mit.edu> (07/12/11 09:17:04)
- git-committer:
- Edward Z. Yang <ezyang@mit.edu> (09/20/11 23:15:32)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Facebook/lib/Facebook/Graph/Publish.pm
r2a42248 r7777ac2 7 7 use Facebook::Graph::Response; 8 8 with 'Facebook::Graph::Role::Uri'; 9 use LWP::UserAgent; 9 use AnyEvent::HTTP; 10 use LWP::UserAgent; # XXX blegh 11 use HTTP::Request::Common; 10 12 use URI::Encode qw(uri_decode); 11 13 … … 42 44 43 45 sub publish { 44 my ($self ) = @_;46 my ($self, $cb) = @_; 45 47 my $uri = $self->uri; 46 48 $uri->path($self->object_name.$self->object_path); 47 my $response = LWP::UserAgent->new->post($uri, $self->get_post_params); 48 my %params = (response => $response); 49 if ($self->has_secret) { 50 $params{secret} = $self->secret; 49 # XXX blegh 50 my $request = LWP::UserAgent->new->request(POST $uri->as_string, $self->get_post_params); 51 http_post $uri->as_string, $request->content, sub { 52 warn "whooo"; 53 my ($response, $headers) = @_; 54 my %params = ( 55 response => $response, 56 headers => $headers, 57 uri => $uri->as_string 58 ); 59 if ($self->has_secret) { 60 $params{secret} = $self->secret; 61 } 62 $cb->(Facebook::Graph::Response->new(%params)); 51 63 } 52 return Facebook::Graph::Response->new(%params);53 64 } 54 65
Note: See TracChangeset
for help on using the changeset viewer.