Changeset 7777ac2 for perl/modules/Facebook/lib/Facebook/Graph/Session.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/Session.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 10 11 11 has app_id => ( … … 38 38 39 39 sub request { 40 my ($self) = @_; 41 my $response = LWP::UserAgent->new->get($self->uri_as_string); 42 return Facebook::Graph::Response->new(response => $response); 40 my ($self, $cb) = @_; 41 http_get $self->uri_as_string, sub { 42 my ($response, $headers) = @_; 43 $cb->(Facebook::Graph::Response->new( 44 response => $response, 45 headers => $headers, 46 uri => $self->uri_as_string 47 )); 48 }; 43 49 } 44 50
Note: See TracChangeset
for help on using the changeset viewer.