package Net::SocialGraph;
use strict;
use JSON::Any;
use LWP::Simple qw();
use URI;
our $VERSION = '1.1';
my $url = 'http://socialgraph.apis.google.com/lookup';
=head1 NAME
Net::SocialGraph - int
turning reachable nodes.
=item pretty (boolean)
Pretty-print returned JSON.
=item callback (string matching /^[\w\.]+$/)
JSONP callback function.
You shouldn't ever have to use this but I put it
@_;
my $json = $self->get_json(@urls) || return undef;
return JSON::Any->jsonToObj($json);
}
=head2 get_json <uri[s]>
The same as above but returns raw JSON.
=cut
sub get_json {
my $s