File Coverage

blib/lib/Buscape/API.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package Buscape::API;
$Buscape::API::VERSION = '0.000003';
use Moo;
use URI;
use Carp;
use Const::Fast;

use List::MoreUtils qw{ any };

const our %METHODS => (
    'find_category_list'   => 'findCategoryList',
    'find_product_list'    => 'findProductList',
    'find_offer_list'      => 'findOfferList',
    'top_products'         => 'topProducts',
    'view_user_ratings'    => 'viewUserRatings',
    'view_product_details' => 'viewProductDetails',
    'view_seller_details'  => 'viewSellerDetails',
);

const our %COUNTRIES => (
    'BR' => 'Brasil',
    'AR' => 'Argentina',
    'CO' => 'Colômbia',
    'CL' => 'Chile',
    'MX' => 'México',
    'PE' => 'Peru',
    'VE' => 'Venezuela',
);

const our %SERVICES => (
    'business' => 'bws.buscape.com',
    'sandbox'  => 'sandbox.buscape.com',
);

has 'app_id' => (
    'is'       => 'ro',
    'required' => 1,
);

has 'source_id' => (
    'is'       => 'ro',
    'required' => 1,
);

has 'env' => (
    'is'  => 'ro',
    'isa' => sub {
        Carp::croak '"env" precisa ser "business" ou "sandbox"'
          unless $_[0] =~ m{business|sandbox};
    },
    'default' => sub { 'sandbox' },
    'lazy'    => 1,

);

has 'country' => (
    'is'  => 'ro',
    'isa' => sub {
        my ($current) = @_;

        my @keys = sort keys %COUNTRIES;
        my $values = join ', ', map { qq{"$_"} } @keys;

        Carp::croak '"country" precisa ser um dos valores: ' . $values
          unless any { $_ eq $current } @keys;
    },
    'default' => sub { 'BR' },
    'lazy'    => 1,

);

has 'service' => (
    'is'      => 'ro',
    'builder' => sub { $SERVICES{ shift->env }; },
    'lazy'    => 1,
);

has 'format' => (
    'is'      => 'ro',
    'lazy'    => 1,
    'default' => sub { 'json' },
);

has 'ua' => (
    'is'      => 'ro',
    'default' => sub {
        require LWP::UserAgent;
        return LWP::UserAgent->new;
    },
);

sub query {
    my ( $self, %args ) = @_;

    my $service   = $self->service;
    my $method    = $METHODS{ delete $args{method} };
    my $app_id    = $self->app_id;
    my $source_id = $self->source_id;
    my $country   = $self->country;
    my $ua        = $self->ua;

    $args{'sourceId'} = $source_id;

    my $uri = URI->new("http://$service/service/$method/$app_id/$country");
    $uri->query_form(%args);

    return $ua->get($uri);
}

1;

# ABSTRACT: Wrapper em torno da API do Buscape

__END__