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

Timestamp:

Jun 21, 2013 3:48:34 PM (11 years ago)

Author:

Ken-ichi Mito <mitty@…>

Branches:

master

Children:

0f8acb5

Parents:

a5b6bf1

Message:

use Net::Twitter::Lite::WithAPIv1_1 instead of Net::Twitter::Lite

• s/Net::Twitter::Lite/Net::Twitter::Lite::WithAPIv1_1/g;

File:

• Dev/twitter/twitterbot.pl (modified) (4 diffs)

Dev/twitter/twitterbot.pl

@@ -10 +10 @@
 # You can catch and process these exceptions by using eval blocks and testing $@
 ## from http://search.cpan.org/perldoc?Net::Twitter::Lite#ERROR_HANDLING
-use Net::Twitter::Lite;
+use Net::Twitter::Lite::WithAPIv1_1;
 use FindBin qw($Bin);
 use YAML::Tiny;
@@ -170 +170 @@
 
 sub login {
-    # make Net::Twitter::Lite object and login
+    # make Net::Twitter::Lite::WithAPIv1_1 object and login
     #   param   => hash object of configration
-    #   ret     => Net::Twitter::Lite object
+    #   ret     => Net::Twitter::Lite::WithAPIv1_1 object
     
     my $conf = shift @_;
     
-    my $bot = Net::Twitter::Lite->new(
+    my $bot = Net::Twitter::Lite::WithAPIv1_1->new(
         consumer_key    => $conf->{consumer_key},
         consumer_secret => $conf->{consumer_secret},
@@ -190 +190 @@
 sub or_search {
     # search tweets containing keywords
-    #   param   => Net::Twitter::Lite object, ArrayRef of keywords, since_id
+    #   param   => Net::Twitter::Lite::WithAPIv1_1 object, ArrayRef of keywords, since_id
     #   ret     => HashRef of status_id (timeline order is destroyed)
     #               or undef (none is found)
@@ -254 +254 @@
 sub mentions_ids {
     # return status_ids mentioned to me
-    #   param   => Net::Twitter::Lite object, since_id
+    #   param   => Net::Twitter::Lite::WithAPIv1_1 object, since_id
     #   ret     => HashRef of status_id (timeline order is destroyed)
     #               or undef (none is found)