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.01010';
3 1     1   813 use Moose;
  1         1  
  1         6  
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   4178 no Moose;
  1         2  
  1         4  
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.01010
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) 2009 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.