Changeset 513da71 for lib/BarnOwl/Module/Twitter/Handle.pm

Timestamp:

Aug 4, 2009, 2:23:28 AM (15 years ago)

Author:

Kevin Riggle <kevinr@free-dissociation.com>

Branches:

master, release-1.10, release-1.7, release-1.8, release-1.9

Children:

4bd9327

Parents:

82e0f26

Message:

Add :twitter-follow and :twitter-unfollow commands

File:

• lib/BarnOwl/Module/Twitter/Handle.pm (modified) (1 diff)

lib/BarnOwl/Module/Twitter/Handle.pm

@@ -252 +252 @@
 }
 
+sub twitter_follow {
+    my $self = shift;
+
+    my $who = shift;
+
+    my $user = $self->{twitter}->create_friend($who);
+    # returns a string on error
+    if (defined $user && !ref $user) {
+        BarnOwl::message($user);
+    } else {
+        BarnOwl::message("Following " . $who);
+    }
+}
+
+sub twitter_unfollow {
+    my $self = shift;
+
+    my $who = shift;
+
+    my $user = $self->{twitter}->destroy_friend($who);
+    # returns a string on error
+    if (defined $user && !ref $user) {
+        BarnOwl::message($user);
+    } else {
+        BarnOwl::message("No longer following " . $who);
+    }
+}
+
 1;