-my %tweets;
-my $tweet;
-
-$tweet = or_search($bot, $conf->{hashtag}, $stat->{search});
-if ($tweet) {
- %tweets = (%tweets, %$tweet);
-}
-
-$tweet = mentions_ids($bot, $stat->{mention});
-if ($tweet) {
- %tweets = (%tweets, %$tweet);
-}
-
-foreach my $id (sort keys %tweets) {
- if ($tweets{$id} eq 'retweet') {
+my $tweets = {};
+%$tweets = (
+ %$tweets,
+ %{ or_search($bot, $conf->{hashtag}, $stat->{search}) }
+);
+%$tweets = (
+ %$tweets,
+ %{ mentions_ids($bot, $stat->{mention}) }
+);
+
+foreach my $id (sort keys %$tweets) {
+ # $tweets->{$id}{type} eq 'search' => found by search API
+ # eq 'mention' => found by mention API
+ if ($tweets->{$id}{type} eq 'retweet') {