File Coverage

blib/lib/Net/Twitter/Lite/WithAPIv1_1.pm

Criterion	Covered	Total	%
statement	13	14	92.8
branch	1	2	50.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	19	21	90.4

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;