view release on metacpan or  search on metacpan

lib/BrandMeister/API.pm  view on Meta::CPAN

use strict;

package BrandMeister::API;

use LWP::UserAgent;
use HTTP::Request::Common;
use JSON;
use MIME::Base64;
#use LWP::ConsoleLogger::Everywhere ();
#use Data::Dumper;

=head1 NAME

BM::API - Use the BM API from Perl

=head1 SYNOPSIS

lib/BrandMeister/API.pm  view on Meta::CPAN

sub _build_request {
    my($self) = shift;
    #my($json) = shift;
    my($requrlpart) = shift;
    my($formdataref) = shift;
    my($uri) = $self->{BM_APIBASEURL}.$requrlpart;
    print("Building HTTP request\n") if($self->{DEBUG});
    my($req);
     if ($formdataref) {
        $req = HTTP::Request::Common::POST( $uri,$formdataref);
    } else {
        $req = HTTP::Request::Common::POST( $uri); 
    };
    $req->header(  'Content-Type' => 'application/x-www-form-urlencoded',
                   'Authorization'=>'Basic ' . $self->{BM_APIKEYBASE64}
           );
	
#$req->content( $json );
    return($req);
    
};