From c8d5bd0f07dc4fe91396eada4d7d10e4f1787cf3 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 16 Feb 2012 21:16:57 -0600
Subject: add a few more event types, and some debug logging

---
 lib/Bot/Flowdock/IRC.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/lib/Bot/Flowdock/IRC.pm b/lib/Bot/Flowdock/IRC.pm
index e3b8732..a70414f 100644
--- a/lib/Bot/Flowdock/IRC.pm
+++ b/lib/Bot/Flowdock/IRC.pm
@@ -2,6 +2,7 @@ package Bot::Flowdock::IRC;
 use Moose;
 use MooseX::NonMoose;
 
+use JSON;
 use List::MoreUtils 'any';
 use Net::Flowdock 0.03;
 use Net::Flowdock::Stream;
@@ -109,6 +110,15 @@ sub tick {
         if ($type eq 'message') {
             $self->flowdock_message($event);
         }
+        elsif ($type eq 'user-edit') {
+            $self->flowdock_user_edit($event);
+        }
+        elsif ($type eq 'activity.user') {
+            # ignore it
+        }
+        else {
+            warn "Unknown event type $type: " . encode_json($event);
+        }
     }
 
     return 1;
@@ -128,6 +138,11 @@ sub flowdock_message {
     );
 }
 
+sub flowdock_user_edit {
+    my $self = shift;
+    my ($event) = @_;
+}
+
 sub said {
     my $self = shift;
     my ($args) = @_;
-- 
cgit v1.2.3-54-g00ecf