File Coverage

blib/lib/Net/Identica.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::Identica;
2             $Net::Identica::VERSION = '4.01043';
3 1     1   834 use Moose;
  1         2  
  1         5  
4              
5             extends 'Net::Twitter::Core';
6             with map "Net::Twitter::Role::$_", qw/Legacy/;
7              
8             has '+apiurl' => ( default => 'http://identi.ca/api' );
9             has '+apirealm' => ( default => 'Laconica API' );
10              
11 1     1   4952 no Moose;
  1         2  
  1         3  
12              
13             __PACKAGE__->meta->make_immutable;
14              
15             1;
16              
17             __END__
18            
19             =head1 NAME
20            
21             Net::Identica - A perl interface to the Identi.ca Twitter Compatible API
22            
23             =head1 VERSION
24            
25             version 4.01043
26            
27             =head1 SYNOPSIS
28            
29             use Net::Identica;
30            
31             $nt = Net::Identica->new(username => $user, password => $passwd);
32            
33             $nt->update('Hello, Identica friends!');
34            
35             =head1 DEPRECATED
36            
37             This module is a backwards compatibility wrapper for applications that used
38             L<Net::Identica> packaged with C<Net::Twitter> versions 2.12 and earlier.
39             Instead, use L<Net::Twitter> with the C<identica> option to gain all of the new
40             features and functionality (OAuth, Search, exceptions on error, etc.).
41            
42             use Net::Twitter;
43            
44             # A simple, backwards compatible replacement for Net::Identica
45             my $identica = Net::Twitter->new(
46             legacy => 1,
47             identica => 1,
48             username => $username,
49             password => $password,
50             );
51            
52             # A more complex object with OAuth and some optional traits
53             my $identica = Net::Twitter->new(
54             traits => [qw/API::REST API::Search InflateObjects/],
55             identica => 1,
56             consumer_key => $consumer_key,
57             consumer_secret => $consumer_secret,
58             access_token => $token,
59             access_token_secret => $token_secret,
60             );
61            
62             =head1 DESCRIPTION
63            
64             The micro-blogging service L<http://identi.ca> provides a Twitter compatible API.
65             This module simply creates an instance of C<Net::Twitter> with the C<identica>
66             option set.
67            
68             See L<Net::Twitter> for full documentation.
69            
70             =head1 METHODS
71            
72             =over 4
73            
74             =item new
75            
76             Creates a C<Net::Twitter> object by call L<Net::Twitter/new> with the
77             C<identica> option preset.
78            
79             =back
80            
81             =head1 SEE ALSO
82            
83             =over 4
84            
85             =item L<Net::Twitter>
86            
87             Full documentation.
88            
89             =back
90            
91             =head1 AUTHOR
92            
93             Marc Mims <marc@questright.com>
94            
95             =head1 LICENSE
96            
97             Copyright (c) 2016 Marc Mims
98            
99             The Twitter API itself, and the description text used in this module is:
100            
101             Copyright (c) 2009 Twitter
102            
103             This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
104            
105             =head1 DISCLAIMER OF WARRANTY
106            
107             BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
108             FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
109             OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
110             PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
111             EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
112             WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
113             ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH
114             YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL
115             NECESSARY SERVICING, REPAIR, OR CORRECTION.
116            
117             IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
118             WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
119             REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENSE, BE
120             LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL,
121             OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE
122             THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
123             RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
124             FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
125             SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
126             SUCH DAMAGES.
127