CPAN::Groonga

package Net::Social::Mapper::Persona;

use strict;
use JSON::Any;

=head1 NAME

Net::Social::Mapper::Persona - an object representing an internet persona

=head1 SYNOPSIS

See C<Net::Social::Mapper>

m );
    my $page  = $self->mapper->get("$url")      || return ();
    my $info  = eval { $self->_json->decode($page) } || return ();    
    my @personas;
    foreach my $url (keys %$info) {
        

a->{$name} = $attributes->{$key};
    }
    return $persona;
}

sub _json {
    my $self = shift;
    return $self->{_json} ||= JSON::Any->new;
}

sub _elsewhere_param {
    my $self = shift;
    retu

ams);
    my $data   = $self->mapper->get("$url") || return;
    
    my $res    = eval { $self->_json->decode($data) };
    my $node   = $res->{nodes}->{$page}     || {};
    my $rss    = $node->{att

ona::Flickr;

use strict;
use base qw(Net::Social::Mapper::Persona::Generic);
use Feed::Find;
use JSON::Any;
use URI;
use Data::Dumper;

our $FLICKR_API_KEY = 'efe286838b28127e10271d239dec10bf';

=hea

$params{api_key} = $self->{_flickr_api_key} || $FLICKR_API_KEY;
    $params{format}  = 'json';
    $params{nojsoncallback} = 1;
    
    my $url          = URI->new("http://www.flickr.com/services/res

t/");
    $url->query_form(%params);
    my $page = $self->mapper->get("$url") || return;
    return eval { $self->_json->decode($page) };
}

1;

package Net::Social::Mapper::SiteMap;

use strict;
use JSON::Any;

=head1 NAME

Net::Social::Mapper::SiteMap - information about know services around the internet

=head1 SYNOPSIS

    my $sitemap = N

A;
    my $off   = tell($fh);
    my $json = JSON::Any->new;
    my $data = do { local $/; <$fh> };
    seek($fh, $off, 0);
    return $self->{_sitemap} ||= $json->decode($data);
}

=head2 profile <se