Please see the new Net::Identica Perl module which obsoletes this module

NAME

Net::Laconica - Perl extension for fetching from, and sending notices/messages to Laconica instances

VERSION

Version 0.08

SYNOPSIS

           use Net::Laconica;

           my $identi = Net::Laconica->new(
               uri      => 'http://identi.ca/',
               username => 'alanhaggai',
               password => 'topsecret'
           );

           print map { $_, "\n" } $identi->fetch;

DESCRIPTION

This module is designed to support fetching and sending messages to Laconica instances.

METHODS

The implemented methods are:

new

Returns a blessed hash reference object. This method accepts a hash reference with uri, username and password as keys. uri and username are required, whereas password is optional.

uri

Holds the URI to the particular Laconica instance to which the object is to be bound.

Example:

                   uri => 'http://identi.ca'  # Presence or absence of a trailing slash in the URI does not matter

username

Username for the Laconica instance.

Example:

                   username => 'alanhaggai'

password

Password for the Laconica instance.

Password is required only if you wish to send messages.

Example:

                   my $identi = Net::Laconica->new(
                       uri      => 'http://identi.ca/',
                       username => 'alanhaggai',
                       password => 'topsecret'
                   );

Or:

                   my $identi = Net::Laconica->new(
                       uri      => 'http://identi.ca/',
                       username => 'alanhaggai',
                       password => 'topsecret'
                   );

fetch

Returns an array of recent messages.

Default number of recent messages returned is 10. The value can be changed by passing the value as an argument to the method. Maximum limit for the value is 20.

Example:

               my @messages = $laconica->fetch;  # Fetches the top 10 messages
                                                 # (If there exists less than 10 messages,
                                                 # they are all returned)

Or:

               my @messages = $laconica->fetch(3);  # Fetches the top 3 messages

send

Sends a message.

Returns 0 if an error occurs.

Example:

               if( $laconica->send('Hello world') ) {
                   print 'Message sent successfully.';
               }

TODO

These are some features which will be implemented soon:

• Migrate to the API once it is made a standard

• Delete notices

• Subscriptions

• Profile

• Favourites

• Replies

• Inbox

• Outbox

• Avatars

AUTHOR

Alan Haggai Alavi, <alanhaggai at alanhaggai.org>

BUGS

Please report any bugs or feature requests to bug-net-laconica at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Net-Laconica. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

INSTALLATION

To install this module, run the following commands:

        perl Makefile.PL
        make
        make test
        make install

SUPPORT

You can find documentation for this module with the perldoc command.

           perldoc Net::Laconica

You can also look for information at:

• RT: CPAN's request tracker

http://rt.cpan.org/NoAuth/Bugs.html?Dist=Net-Laconica

• AnnoCPAN: Annotated CPAN documentation

http://annocpan.org/dist/Net-Laconica

• CPAN Ratings

http://cpanratings.perl.org/d/Net-Laconica

• Search CPAN

http://search.cpan.org/dist/Net-Laconica

COPYRIGHT & LICENSE

Copyright 2008 Alan Haggai Alavi, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.