- Timestamp:
- Sep 19, 2011, 1:31:35 PM (12 years ago)
- Children:
- c104b43
- Parents:
- cfca761
- git-author:
- Edward Z. Yang <ezyang@mit.edu> (07/12/11 09:17:04)
- git-committer:
- Edward Z. Yang <ezyang@mit.edu> (09/19/11 13:31:35)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Facebook/lib/Facebook/Graph/AccessToken.pm
rcfca761 r9820d55 7 7 use Facebook::Graph::AccessToken::Response; 8 8 with 'Facebook::Graph::Role::Uri'; 9 use LWP::UserAgent;9 use AnyEvent::HTTP; 10 10 11 11 has app_id => ( … … 43 43 44 44 sub request { 45 my ($self) = @_; 46 my $response = LWP::UserAgent->new->get($self->uri_as_string); 47 return Facebook::Graph::AccessToken::Response->new(response => $response); 45 my ($self, $cb) = @_; 46 http_get $self->uri_as_string, sub { 47 my ($response, $headers) = @_; 48 $cb->(Facebook::Graph::AccessToken::Response->new( 49 response => $response, 50 headers => $headers, 51 uri => $self->uri_as_string 52 )); 53 }; 48 54 } 49 55
Note: See TracChangeset
for help on using the changeset viewer.