Yet Another CPAN Grep

Exobrain-Foursquare ( P/PJ/PJF/Exobrain-Foursquare-0.01.tar.gz, PJF, 2014; MetaCPAN )

Exobrain-Foursquare/lib/Exobrain/Foursquare.pm ( view source; MetaCPAN )

package Exobrain::Foursquare;
use Moose;
use Exobrain::Config;
use JSON::Any;
use Try::Tiny;
use feature qw(say);

# ABSTRACT: Foursquare components for Exobrain
our $VERSION = '0.01'; # VERSION

with

ize->new( autocheck => 1 );
    my $json = JSON::Any->new;

    $mech->get("$FOURSQUARE_API/checkins/recent?oauth_token=$token&v=20130425");

    my $status = $json->decode($mech->content);

    if ($

Exobrain-Foursquare ( P/PJ/PJF/Exobrain-Foursquare-0.01.tar.gz, PJF, 2014; MetaCPAN )

Exobrain-Foursquare/lib/Exobrain/Agent/Foursquare.pm ( view source; MetaCPAN )

 %full_args );

    # Make our call, and decode the resulting JSON.

    $self->mech->get("$base/$path?$arguments");
    return $self->json->decode( $self->mech->content );

}

1;

__END__

=pod

=hea