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.01042';
3 1     1   1196 use Moose;
  1         2  
  1         7  
4              
5             extends  'Net::Twitter::Core';
6             with map "Net::Twitter::Role::$_", qw/Legacy OAuth/;
7              
8 1     1   4760 no Moose;
  1         1  
  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.01042
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
81