Changeset a5b6bf1 in lab.git for Dev/twitter/twitterbot.pl

Timestamp:

Jun 21, 2013 3:38:04 PM (11 years ago)

Author:

Ken-ichi Mito <mitty@…>

Branches:

master

Children:

e960958

Parents:

fd6dbd0

Message:

fix evalrescue fuction

• dereference Net::Twitter::Lite::Error->twitter_error object correctly
• use Data::Dumper for unknown structure

File:

• Dev/twitter/twitterbot.pl (modified) (1 diff)

Dev/twitter/twitterbot.pl

@@ -302 +302 @@
         warn $@->error;
         if ($@->twitter_error) {
-            my %twitter_error = %{$@->twitter_error};
-            map {
-                $twitter_error{"$_ => "} = $twitter_error{$_} . "\n";
-                delete $twitter_error{$_}
-            } keys %twitter_error;
-            warn join("", %twitter_error);
+            my $twitter_error = $@->twitter_error;
+            if (defined $twitter_error->{errors}) {
+                foreach my $error (@{$twitter_error->{errors}}) {
+                    warn "code => "   , $error->{code}, "\n";
+                    warn "message => ", $error->{message}, "\n";
+                }
+            }
+            else {
+                # unknown HASH structure
+                use Data::Dumper;
+                warn Dumper $twitter_error;
+            }
         }
     }