File Coverage

blib/lib/Net/Iugu/MarketPlace.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Net::Iugu::MarketPlace;
$Net::Iugu::MarketPlace::VERSION = '0.000002';
use Moo;
extends 'Net::Iugu::Request';

use HTTP::Headers;
use HTTP::Request;
use File::LibMagic;

use JSON qw{ from_json to_json };
use File::Slurp qw{ read_file };
use MIME::Base64 qw{ encode_base64 };

sub create_account {
    my ( $self, $data ) = @_;

    my $uri = $self->base_uri . '/marketplace/create_account';

    return $self->request( POST => $uri, $data );
}

sub request_account_verification {
    my ( $self, $user_token, $account_id, $data ) = @_;

    my @parts = (
        $self->base_uri,           ##
        'accounts',                ##
        $account_id,               ##
        'request_verification',    ##
    );

    my $uri = join '/', @parts;

    if ( exists $data->{files} ) {
        foreach my $key ( keys %{ $data->{files} } ) {
            my $path    = $data->{files}{$key};
            my $bytes   = read_file( $path, { binmode => ':raw' } );
            my $encoded = encode_base64( $bytes, '' );
            my $info    = File::LibMagic->new->info_from_filename($path);

            my $mime =
                $info->{mime_type} =~ m#(image/.+?;)#
              ? $1
              : 'image/jpeg;';

            $data->{files}{$key} = 'data:' . $mime . 'base64,' . $encoded;
        }
    }

    my $auth = 'Basic ' . encode_base64( $user_token . ':', '' );
    my $headers = HTTP::Headers->new(
        'Authorization' => $auth,
        'Content-Type'  => 'application/json',
    );

    my $content = to_json $data;
    my $req     = HTTP::Request->new(
        POST => $uri,
        $headers,
        $content,
    );

    my $res = $self->ua->request($req);

    return from_json $res->content;
}

sub account_info {
    my ( $self, $account_id ) = @_;

    my $uri = $self->base_uri . '/accounts/' . $account_id;

    return $self->request( GET => $uri );
}

sub configurate_account {
    my ( $self, $user_token, $data ) = @_;

    my $uri = $self->base_uri . '/accounts/configuration';

    my $auth = 'Basic ' . encode_base64( $user_token . ':', '' );
    my $headers = HTTP::Headers->new(
        'Authorization' => $auth,
        'Content-Type'  => 'application/json',
    );

    my $content = to_json $data;
    my $req     = HTTP::Request->new(
        POST => $uri,
        $headers,
        $content,
    );

    my $res = $self->ua->request($req);

    return from_json $res->content;
}

sub request_withdraw {
    my ( $self, $account_id, $amount ) = @_;

    my @parts = (
        $self->base_uri,       ##
        'accounts',            ##
        $account_id,           ##
        'request_withdraw',    ##
    );

    my $uri = join '/', @parts;

    return $self->request( POST => $uri, { amount => $amount } );
}

1;

# ABSTRACT: Net::Iugu::MarketPlace - Methods to manage marketplaces

__END__