The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
Changes 03
META.yml 11
MYMETA.json 22
lib/App/Twirc/Manual.pod 010
lib/App/Twirc.pm 15
lib/POE/Component/Server/Twirc.pm 12
t/99-pod_spelling.t 01
7 files changed (This is a version diff) 524
@@ -1,3 +1,6 @@
+0.17 2014-01-18
+    - Enable SSL for Twitter API calls
+
 0.16 2013-06-13
     - initial Twitter API v1.1 support (BinGOs)
 
@@ -45,4 +45,4 @@ requires:
 resources:
   license: http://dev.perl.org/licenses/
   repository: git://github.com/semifor/twirc.git
-version: 0.16
+version: 0.17
@@ -4,7 +4,7 @@
       "Marc Mims <marc@questright.com>"
    ],
    "dynamic_config" : 0,
-   "generated_by" : "Module::Install version 1.06, CPAN::Meta::Converter version 2.120921",
+   "generated_by" : "Module::Install version 1.06, CPAN::Meta::Converter version 2.133380",
    "license" : [
       "perl_5"
    ],
@@ -68,5 +68,5 @@
          "url" : "git://github.com/semifor/twirc.git"
       }
    },
-   "version" : "0.15"
+   "version" : "0.16"
 }
@@ -140,6 +140,16 @@ TRACE.  The default is WARN.
 File used to store state information between sessions, including Twitter OAuth
 access tokens, friends, and followers_ids.
 
+=item twitter_args
+
+Use this to pass additional parameters to L<Net::Twitter>'s constructor. For
+example, this version of Twirc uses SSL connections to the Twitter API. If
+you're using a service that requires non-SSL connections, add this to your
+configuration file:
+
+    twitter_args:
+        ssl: 0
+
 =back
 
 =head1 USING
@@ -81,7 +81,11 @@ sub run {
     if ( $self->authenticate || !$state->access_token ) {
         # bloody hack until Twitter restores xauth
 
-        my $nt = Net::Twitter->new(traits => [qw/OAuth/], POE::Component::Server::Twirc->_twitter_auth);
+        my $nt = Net::Twitter->new(
+            traits => [qw/OAuth/],
+            POE::Component::Server::Twirc->_twitter_auth,
+            ssl => 1,
+        );
         print "Authorize twirc at ", $nt->get_authorization_url, "\nThen, enter the PIN# provided: ";
 
         my $pin = <STDIN>;
@@ -17,7 +17,7 @@ use Regexp::Common qw/URI/;
 
 with 'MooseX::Log::Log4perl';
 
-our $VERSION = '0.16';
+our $VERSION = '0.17';
 
 =head1 NAME
 
@@ -356,6 +356,7 @@ sub _net_twitter_opts {
         useragent_class      => 'LWP::UserAgent::POE',
         useragent            => "twirc/$VERSION",
         decode_html_entities => 1,
+        ssl                  => 1,
         %{ $self->twitter_args },
     );
 
@@ -44,6 +44,7 @@ redisplaying
 retweet
 retweeting
 spammers
+SSL
 timeline
 timelines
 Twirc