File Coverage

blib/lib/Net/Twitter/OAuth.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Net::Twitter::OAuth;
2             $Net::Twitter::OAuth::VERSION = '4.01010';
3 1     1   779 use Moose;
  1         1  
  1         7  
4              
5             extends 'Net::Twitter::Core';
6             with map "Net::Twitter::Role::$_", qw/Legacy OAuth/;
7              
8 1     1   4212 no Moose;
  1         2  
  1         4  
9              
10             __PACKAGE__->meta->make_immutable;
11              
12             1;
13              
14             __END__
15              
16             =head1 NAME
17              
18             Net::Twitter::OAuth - Net::Twitter with 'Legacy' and 'OAuth' roles for backwards compatibility
19              
20             =head1 VERSION
21              
22             version 4.01010
23              
24             =head1 SYNOPSIS
25              
26             use Net::Twitter;
27              
28             my $nt = Net::Twitter::OAuth->new(consumer_key => $key, consumer_secret => $secret);
29              
30             =head1 DESCRIPTION
31              
32             This module simply creates an instance of C<Net::Twitter> with the C<Legacy>
33             and C<OAuth> traits applied. It is provided as a transparent backwards
34             compatibility layer for earlier versions of Net::Twitter::OAuth which
35             subclassed Net::Twitter.
36              
37             See L<Net::Twitter> and L<Net::Twitter::Role::OAuth> for full documentation.
38              
39             =head1 DEPRECATION NOTICE
40              
41             This module is deprecated. Use L<Net::Twitter> instead.
42              
43             use Net::Twitter;
44              
45             # Just the REST API; exceptions thrown on error
46             $nt = Net::Twitter->new(traits => [qw/API::RESTv1_1 OAuth/]);
47              
48             # Just the REST API; errors wrapped - use $nt->get_error
49             $nt = Net::Twitter->new(traits => [qw/API::RESTv1_1 WrapError/]);
50              
51             # Or, for code that uses legacy Net::Twitter idioms
52             $nt = Net::Twitter->new(traits => [qw/Legacy OAuth/]);
53              
54             =head1 METHODS
55              
56             =over 4
57              
58             =item new
59              
60             Creates a C<Net::Twitter> object with the C<Legacy> and C<OAuth> traits. See
61             L<Net::Twitter/new> for C<new> options.
62              
63             =back
64              
65             =head1 SEE ALSO
66              
67             L<Net::Twitter>, L<Net::Twitter::Role::OAuth>
68              
69              
70             =head1 AUTHORS
71              
72             Marc Mims <marc@questright.com>
73             Tatsuhiko Miyagawa <miyagawa@bulknews.net>
74              
75             =head1 LICENSE
76              
77             This library is free software; you can redistribute it and/or modify
78             it under the same terms as Perl itself.
79              
80             =cut