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