root/lang/perl/plagger/lib/Plagger/Plugin/Subscription/Me.pm

package Plagger::Plugin::Subscription::Me;
use strict;
use base qw( Plagger::Plugin );

use Net::SocialGraph;

sub register {
    my($self, $context) = @_;

    $context->register_hook(
        $self,
        'subscription.load' => $self->can('load'),
    );
}

sub load {
    my($self, $context) = @_;


    my $sg  = Net::SocialGraph->new(fme => 1);
    my $res = $sg->get($self->conf->{url});

    for my $node (keys(%{$res->{nodes}})) {
        my $feed = Plagger::Feed->new;
        $feed->url($node);
        Plagger->context->subscription->add($feed);
    }
}

1;

__END__

=head1 NAME

Plagger::Plugin::Subscription::Me - Subscription list with Social Graph

=head1 SYNOPSIS

  - module: Subscription::Me
    config:
      url: http://example.com/users/foo

=head1 DESCRIPTION

This plugin creates Subscription by fetching "me" links using Google
Social Graph API.

=head1 AUTHOR

youpy

=head1 SEE ALSO

L<Plagger>, L<http://code.google.com/apis/socialgraph/>

=cut