CPAN::Groonga

    my $url = 'http://www.reddit.com/api/info.json?url=' . $self->url;

    if ( my $json = $self->get_url_json($url) ) {
        if ( my $data = $json->{data} ) {
            if ( my $children = $d

my $url = 'http://www.linkedin.com/countserv/count/share?format=json&url=' . $self->url;

    if ( my $share_count = $self->get_url_json($url)->{count} ) {
        return $share_count;
    }
    else 

.com/services/1.01/badge.getinfo?url=' . $self->url;

    if ( my $json = $self->get_url_json($url) ) {
        if ( my $data = $json->{result} ) {
            return $data;
        }
        else {
 

package URL::Social::BASE;
use Moose;
use namespace::autoclean;

use LWP::UserAgent;
use JSON;

=head1 NAME

URL::Social::BASE - Base class for the different social classes.

=head1 DESCRIPTION

You d

 );

sub _build_useragent {
    my $self = shift;

    return LWP::UserAgent->new;
}

sub get_url_json {
    my $self = shift;
    my $url  = shift || $self->url;

    if ( $url =~ m,(file://.+), ) { 

esponse = $self->useragent->get( $url );

    if ( $response->is_success ) {
        return JSON::decode_json( $response->content );
    }
    else {
        return undef;
    }
}

#
# The End
#
__PAC

nt FROM link_stat WHERE url = "' . $self->url . '"';

    if ( my $json = $self->get_url_json($url) ) {
        if ( my $data = $json->{data}->[0] ) {
            return $data;
        }
        else 

 shift;

    my $url = 'http://cdn.api.twitter.com/1/urls/count.json?url=' . $self->url;

    if ( my $share_count = $self->get_url_json($url)->{count} ) {
        return $share_count || 0;
    }