line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Net::Twitter::Role::API::Search::Trends; |
2
|
|
|
|
|
|
|
$Net::Twitter::Role::API::Search::Trends::VERSION = '4.01010'; |
3
|
13
|
|
|
13
|
|
6447
|
use Moose::Role; |
|
13
|
|
|
|
|
23
|
|
|
13
|
|
|
|
|
65
|
|
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
after BUILD => sub { |
6
|
|
|
|
|
|
|
my $self = shift; |
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
unless ( $self->can('trends') || $ENV{NET_TWITTER_NO_TRENDS_WARNING} ) { |
9
|
|
|
|
|
|
|
warn <<EOT; |
10
|
|
|
|
|
|
|
The "trends" methods have been moved to the API::REST trait. This warning |
11
|
|
|
|
|
|
|
will be removed in a future release. You can supress it by: |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
- including the API::REST trait |
14
|
|
|
|
|
|
|
- or setting the environment variable NET_TWITTER_NO_TRENDS_WARNING=1 |
15
|
|
|
|
|
|
|
EOT |
16
|
|
|
|
|
|
|
} |
17
|
|
|
|
|
|
|
}; |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
1; |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
__END__ |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
=head1 NAME |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
Net::Twitter::Role::API::Search::Trends - DEPRECATED: use API::REST |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
=head1 VERSION |
28
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
version 4.01010 |
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
=head1 SYNOPSIS |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
my $nt = Net::Twitter->new(taits => [qw/API::Search API::REST/], ...); |
34
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
=head1 DESCRIPTION |
36
|
|
|
|
|
|
|
|
37
|
|
|
|
|
|
|
The C<trends> methods have been move to the C<API::REST> trait. |
38
|
|
|
|
|
|
|
|
39
|
|
|
|
|
|
|
=head1 AUTHOR |
40
|
|
|
|
|
|
|
|
41
|
|
|
|
|
|
|
Marc Mims <marc@questright.com> |
42
|
|
|
|
|
|
|
|
43
|
|
|
|
|
|
|
=head1 LICENSE |
44
|
|
|
|
|
|
|
|
45
|
|
|
|
|
|
|
Copyright (c) 2010 Marc Mims |
46
|
|
|
|
|
|
|
|
47
|
|
|
|
|
|
|
The Twitter API itself, and the description text used in this module is: |
48
|
|
|
|
|
|
|
|
49
|
|
|
|
|
|
|
Copyright (c) 2009 Twitter |
50
|
|
|
|
|
|
|
|
51
|
|
|
|
|
|
|
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. |
52
|
|
|
|
|
|
|
|
53
|
|
|
|
|
|
|
=head1 DISCLAIMER OF WARRANTY |
54
|
|
|
|
|
|
|
|
55
|
|
|
|
|
|
|
BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY |
56
|
|
|
|
|
|
|
FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN |
57
|
|
|
|
|
|
|
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES |
58
|
|
|
|
|
|
|
PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER |
59
|
|
|
|
|
|
|
EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED |
60
|
|
|
|
|
|
|
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE |
61
|
|
|
|
|
|
|
ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH |
62
|
|
|
|
|
|
|
YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL |
63
|
|
|
|
|
|
|
NECESSARY SERVICING, REPAIR, OR CORRECTION. |
64
|
|
|
|
|
|
|
|
65
|
|
|
|
|
|
|
IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING |
66
|
|
|
|
|
|
|
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR |
67
|
|
|
|
|
|
|
REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENSE, BE |
68
|
|
|
|
|
|
|
LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL, |
69
|
|
|
|
|
|
|
OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE |
70
|
|
|
|
|
|
|
THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING |
71
|
|
|
|
|
|
|
RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A |
72
|
|
|
|
|
|
|
FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF |
73
|
|
|
|
|
|
|
SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF |
74
|
|
|
|
|
|
|
SUCH DAMAGES. |