1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
package Net::Twitter::Lite::WithAPIv1_1;
$Net::Twitter::Lite::WithAPIv1_1::VERSION = '0.12008';
use warnings;
use strict;
use parent 'Net::Twitter::Lite';
=head1 NAME
Net::Twitter::Lite::WithAPIv1_1 - A perl API library for Twitter's API v1.1
=head1 VERSION
version 0.12008
=cut
sub twitter_api_def_from () { 'Net::Twitter::Lite::API::V1_1' }
sub _default_api_url () { 'http://api.twitter.com/1.1' }
sub _default_searchapiurl () { 'http://search.twitter.com' }
sub _default_search_trends_api_url () { 'http://api.twitter.com/1.1' }
sub _default_lists_api_url () { 'http://api.twitter.com/1.1' }
sub new {
my $class = shift;
my %options = @_;
# Twitter now requires SSL connections. Make it the default.
unless ( exists $options{ssl} ) {
$options{ssl} = 1;
}
return $class->SUPER::new(
legacy_lists_api => 0,
upload_url => 'https://upload.twitter.com/1.1',
%options
);
}
1;
|
