Changeset e960958 in lab.git for Dev/twitter/update_timeline.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/update_timeline.pl (modified) (2 diffs)

Dev/twitter/update_timeline.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;
@@ -86 +86 @@
 
 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},