view release on metacpan or  search on metacpan

README  view on Meta::CPAN

    WWW::OneAll - OneAll API

SYNOPSIS

        use WWW::OneAll;
        my $connection_token;
        my $oneall = WWW::OneAll->new(
            subdomain   => 'your_subdomain',
            public_key  => 'pubkey12-629b-4020-83fe-38af46e27b06',
            private_key => 'prikey12-a7ec-48f5-b9bc-737eb74146a4',
        );
        my $data = $oneall->connection($connection_token) or die $oneall->errstr;

DESCRIPTION

    OneAll provides web-applications with a unified API for 30+ social
    networks.

METHODS

 new

      * subdomain

      * public_key

      * private_key

      all required. get from API Settings
      https://app.oneall.com/applications/application/settings/api/

 connections

 connection

    Connection API http://docs.oneall.com/api/resources/connections/

lib/WWW/OneAll.pm  view on Meta::CPAN

our $VERSION = '0.03';

use vars qw/$errstr/;
sub errstr { return $errstr }

sub new {    ## no critic (ArgUnpacking)
    my $class = shift;
    my %args  = @_ % 2 ? %{$_[0]} : @_;

    for (qw/subdomain public_key private_key/) {
        $args{$_} || croak "Param $_ is required.";
    }

    $args{endpoint} ||= "https://" . $args{subdomain} . ".api.oneall.com";
    $args{timeout}  ||= 60;                                                  # for ua timeout

    return bless \%args, $class;
}

sub __ua {