Changeset e458b63 for perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm

Timestamp:

Jun 23, 2011, 10:48:57 PM (13 years ago)

Author:

Edward Z. Yang <ezyang@mit.edu>

Parents:

4839f5a

Message:

Remove extra spaces round parentheses.

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

File:

• perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm (modified) (8 diffs)

perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm

@@ -111 +111 @@
     bless($self, $class);
 
-    $self->{facebook} = Facebook::Graph->new( app_id => $app_id );
-    if ( defined $self->{cfg}->{token} ) {
+    $self->{facebook} = Facebook::Graph->new(app_id => $app_id);
+    if (defined $self->{cfg}->{token}) {
         $self->facebook_do_auth;
     }
@@ -190 +190 @@
     $self->{friends} = {};
 
-    for my $friend ( @{$friends->{data}} ) {
+    for my $friend (@{$friends->{data}}) {
         if (defined $self->{friends}{$friend->{name}}) {
             # XXX We should try a little harder here, rather than just
@@ -250 +250 @@
              # Not using this, because we want to pick up comment
              # updates. We need to manually de-duplicate, though.
-             # ->where_since( "@" . $self->{last_poll} )
+             # ->where_since("@" . $self->{last_poll})
              # Facebook doesn't actually give us that many results.
              # But it can't hurt to ask!
-             ->limit_results( 200 )
+             ->limit_results(200)
              ->request
              ->as_hashref
@@ -260 +260 @@
 
     my $new_last_poll = $self->{last_poll};
-    for my $post ( reverse @{$updates->{data}} ) {
+    for my $post (reverse @{$updates->{data}}) {
         # No app invites, thanks! (XXX make configurable)
         if ($post->{type} eq 'link' && $post->{application}) {
@@ -317 +317 @@
         my $updated_time = str2time($post->{updated_time});
         if ($updated_time >= $self->{last_poll} && defined $post->{comments}{data}) {
-            for my $comment ( @{$post->{comments}{data}} ) {
+            for my $comment (@{$post->{comments}{data}}) {
                 my $comment_time = str2time($comment->{created_time});
                 if ($comment_time < $self->{last_poll}) {
@@ -377 +377 @@
     if (defined $user) {
         $user = $self->{friends}{$user} || $user;
-        eval { $self->{facebook}->add_post( $user )->set_message( $msg )->publish; };
+        eval { $self->{facebook}->add_post($user)->set_message($msg)->publish; };
         return unless $self->check_result;
     } else {
-        eval { $self->{facebook}->add_post->set_message( $msg )->publish; };
+        eval { $self->{facebook}->add_post->set_message($msg)->publish; };
         return unless $self->check_result;
     }
@@ -392 +392 @@
     my $msg = shift;
 
-    eval { $self->{facebook}->add_comment( $post_id )->set_message( $msg )->publish; };
+    eval { $self->{facebook}->add_comment($post_id)->set_message($msg)->publish; };
     return unless $self->check_result;
     $self->sleep(0);
@@ -424 +424 @@
 sub facebook_do_auth {
     my $self = shift;
-    if ( ! defined $self->{cfg}->{token} ) {
+    if (!defined $self->{cfg}->{token}) {
         BarnOwl::admin_message('Facebook', "Login to Facebook at ".$self->{login_url}
             . "\nand run command ':facebook-auth URL' with the URL you are redirected to."