Changeset 9820d55 for perl/modules/Facebook/lib/Facebook/Graph.pm

Timestamp:

Sep 19, 2011, 1:31:35 PM (13 years ago)

Author:

Edward Z. Yang <ezyang@mit.edu>

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)

Message:

Convert to async (both Facebook::Graph and us.)

Work items:
    - Documentation is all out of date
    - Think more carefully about error handling
      (right now it's delayed into the response object)
    - Really bad HTTP POST hack in Publish.pm.

Signed-off-by: Edward Z. Yang <ezyang@mit.edu>

File:

• perl/modules/Facebook/lib/Facebook/Graph.pm (modified) (3 diffs)

perl/modules/Facebook/lib/Facebook/Graph.pm

@@ -62 +62 @@
 
 sub request_access_token {
-    my ($self, $code) = @_;
-    my $token = Facebook::Graph::AccessToken->new(
+    my ($self, $code, $cb) = @_;
+    Facebook::Graph::AccessToken->new(
         code            => $code,
         postback        => $self->postback,
         secret          => $self->secret,
         app_id          => $self->app_id,
-    )->request;
-    $self->access_token($token->token);
-    return $token;
+    )->request(sub {
+        my ($response) = @_;
+        $self->access_token($response->token);
+        $cb->($response);
+    });
 }
 
 sub convert_sessions {
-    my ($self, $sessions) = @_;
-    return Facebook::Graph::Session->new(
+    my ($self, $sessions, $cb) = @_;
+    Facebook::Graph::Session->new(
         secret          => $self->secret,
         app_id          => $self->app_id,
         sessions        => $sessions,
-        )
-        ->request
-        ->as_hashref;
+    )->request($cb); # API change
 }
 
@@ -92 +92 @@
 }
 
-sub fetch {
-    my ($self, $object_name) = @_;
-    return $self->query->find($object_name)->request->as_hashref;
-}
+# XXX error handling
+#sub fetch {
+#    my ($self, $object_name, $cb) = @_;
+#    $self->query->find($object_name)->request(sub {
+#        my ($result) = @_;
+#        $cb->($result->as_hashref);
+#    });
+#}
 
 sub query {
@@ -540 +544 @@
 L<Any::Moose>
 L<JSON>
-L<LWP>
-L<LWP::Protocol::https>
+L<AnyEvent::HTTP>
 L<Mozilla::CA>
 L<URI>