NAME

Net::Social - abstracted interface for social networks

SYNOPSIS

use Net::Social qw(:all); # get constants

# What services are available
my @services = Net::Social->services;

# Fetch a handler for a service
my $service = Net::Social->service('LiveJournal');

# what fields are needed to login
my %params = $service->params;

foreach my $type (keys %params) {
    print "To $type:\n"; # either read or write
    foreach my $p (keys %$types{$type}) {
        print $params{$type}->{$p}->{name}." : ".$params{$type}->{$p}->{description}."\n";
        # also 'required' and 'sensitive'
    }
}

# login - my_params must have the required fields from %params
$service->login(%my_params);

# now fetch your friends
my @friends  = $service->friends;

# add a friend
$service->add_friend($friend);

# remove a friend
$service->remove_friend($friend);

CONSTANTS

Optionally exports the constants

NONE
FRIENDED
FRIENDED_BY
MUTUAL

Which describe the type of relationship with a friend.

It should be noted that

MUTUAL = FRIENDED | FRIENDED_BY;

but is provided for convenience.

METHODS

services

A list of all services available.

service <service name>

Fetch the class for a given service

Returns undef if that service isn't found.

AUTHOR

Simon Wistow <simon@thegestalt.org>

COPYRIGHT

Copyright, 2007 - Simon Wistow

Distributed under the same terms as Perl itself