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;
lib/BrandMeister/API.pm view on Meta::CPAN
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}
);
view release on metacpan or search on metacpan
lib/Bread/Board/Literal.pm view on Meta::CPAN
},
dependencies => wire_names(qw( connect_string )),
);
service service_request => (
class => 'HTTP::Request',
block => sub {
my $s = shift;
HTTP::Request->new(POST => $s->param('service_url'));
},
dependencies => wire_names(qw( service_url ));
};
};
view release on metacpan or search on metacpan
lib/Brocade/BSC.pm view on Meta::CPAN
my %headers = $headerref ? %$headerref : ();
my $url = "http://$$self{ipAddr}:$$self{portNum}$urlpath";
my $ua = LWP::UserAgent->new;
$ua->timeout($self->{timeout});
my $req = HTTP::Request->new($method => $url);
while (my($header, $value) = each %headers) {
$req->header($header => $value);
}
if ($data) {
$req->content($data);
view release on metacpan or search on metacpan
HTML::Parser 3.0 - recommended, used to parse GDP page in Bio::DB::GDP
HTML::TableExtract
HTTP::Request::Common - recommended, used for web access (part of libwww-perl)
IO::String
IO::Scalar
view release on metacpan or search on metacpan
lib/Bundle/CPANPLUS/Test/Reporter.pm view on Meta::CPAN
=head1 CONTENTS
File::Temp
HTTP::Request
Net::DNS
Net::SMTP
view release on metacpan or search on metacpan
Everything.pm view on Meta::CPAN
HTTP::QuickBase
HTTP::Recorder
HTTP::Request
HTTP::Request::AsCGI
HTTP::Request::Common
HTTP::Request::Form
HTTP::Request::FromLog
HTTP::Response
HTTP::Server:::Brick
view release on metacpan or search on metacpan
lib/Bundle/KohaSupport.pm view on Meta::CPAN
Getopt::Long 2.35
Getopt::Std 1.05
HTML::Template::Pro 0.69
HTML::Scrubber 0.08
HTTP::Cookies 1.39
HTTP::Request::Common 1.26
Image::Magick 6.2
LWP::Simple 1.41
LWP::UserAgent 2.033
Lingua::Stem 0.82
List::Util 1.18
view release on metacpan or search on metacpan
OpenInteract.pm view on Meta::CPAN
File::Path
File::Spec
HTML::Entities (1.13)
HTTP::Request
Lingua::Stem
MIME::Lite (2.00)
view release on metacpan or search on metacpan
HTML::Sanitizer
HTML::Template
HTTP::Request
HTTP::Response
HTTP::Status
view release on metacpan or search on metacpan
lib/Bundle/W3C/Validator.pm view on Meta::CPAN
HTML::Tidy - (optional)
HTTP::Headers::Auth
HTTP::Headers::Util
HTTP::Message 1.52
HTTP::Negotiate
HTTP::Request
JSON 2.00
LWP::UserAgent 2.032
Net::IP
Net::hostent
SGML::Parser::OpenSP 0.991
view release on metacpan or search on metacpan
"Finance::Tax::Aruba" : "0.009",
"FindBin" : "0",
"Getopt::Long" : "0",
"HTTP::Cookies" : "0",
"HTTP::Daemon::SSL" : "0",
"HTTP::Request" : "0",
"HTTP::Request::Params" : "0",
"IO::All" : "0",
"IO::Socket::SSL" : "0",
"Image::ExifTool" : "0",
"JSON::XS" : "0",
"LWP::UserAgent" : "0",
view release on metacpan or search on metacpan
lib/Business/BalancedPayments/Base.pm view on Meta::CPAN
with 'WebService::Client';
our $VERSION = '1.0600'; # VERSION
use Carp qw(croak);
use HTTP::Request::Common qw(GET POST);
use JSON qw(encode_json);
has '+base_url' => (is => 'ro', default => 'https://api.balancedpayments.com');
has secret => (is => 'ro', required => 1);
view release on metacpan or search on metacpan
lib/Business/Bitcoin/Request.pm view on Meta::CPAN
package Business::Bitcoin::Request;
use DBI;
use LWP::UserAgent;
use HTTP::Request;
use Math::EllipticCurve::Prime;
use Math::EllipticCurve::Prime::Point;
use Digest::SHA qw(sha256 sha256_hex hmac_sha512_hex);
use Encode::Base58::BigInt;
use Crypt::RIPEMD160;
lib/Business/Bitcoin/Request.pm view on Meta::CPAN
}
sub verify {
my $self = shift;
my $ua = new LWP::UserAgent;
my $req = HTTP::Request->new(GET => 'https://blockchain.info/q/addressbalance/' . $self->address . '?confirmations=' . $self->confirmations);
my $res = $ua->request($req);
my $paid = $res->content;
$self->error($paid), return if $paid =~ /\D/;
$self->error('');
$paid >= $self->amount ? $paid : 0;
view release on metacpan or search on metacpan
lib/Business/Bitpay.pm view on Meta::CPAN
use 5.008_001;
our $VERSION = '0.05';
eval $VERSION;
use HTTP::Request;
use URI;
use JSON qw(encode_json decode_json);
use LWP::UserAgent;
require Carp;
lib/Business/Bitpay.pm view on Meta::CPAN
$method = 'POST';
$data = encode_json $data;
push @fields, 'Content-Type' => 'application/json';
}
my $request = HTTP::Request->new(
$method => $uri, [
'User-Agent' => 'bitpay api',
'X-BitPay-Plugin-Info' => 'perl' . $VERSION,
@fields,
],
view release on metacpan or search on metacpan
lib/Business/CPI/Gateway/MercadoPago.pm view on Meta::CPAN
my $ua = $self->user_agent;
my $url = $self->_build_uri(
'/checkout/preferences?access_token=' . $self->access_token );
my $json = $self->_make_json($info);
my $req = HTTP::Request->new( 'POST', $url );
$req->content_type('application/json');
$req->content($json);
my $res = $ua->request($req);
die $res->status_line unless $res->is_success;
view release on metacpan or search on metacpan
lib/Business/CPI/Gateway/Moip.pm view on Meta::CPAN
moipstatus.php, on their github acc: https://github.com/moiplabs/moip-php/blob/master/lib/MoipStatus.php
use HTTP::Tiny;
use MIME::Base64;
use Data::Printer;
use HTTP::Request::Common qw(POST);
use Mojo::DOM;
my $url_login = "https://www.moip.com.br/j_acegi_security_check";
my $login = 'XXXXXXXXXXX';
my $pass = "XXXXXXX";
my $url_transactions = 'https://www.moip.com.br/rest/reports/last-transactions';
view release on metacpan or search on metacpan
lib/Business/CPI/Role/Exception.pm view on Meta::CPAN
Plain HashRef (i.e., not blessed) containing any extra data regarding the
exception that might be useful. For example:
{
raw_lwp_request => $req, # $res->isa('HTTP::Request')
raw_lwp_response => $res, # $res->isa('HTTP::Response')
http_status_code => 400,
error_code => 'XM-231',
message => 'That currency is currently not supported',
context => 'currency',
view release on metacpan or search on metacpan
lib/Business/CyberSource/Report/PaymentEvents.pm view on Meta::CPAN
use warnings;
use base 'Business::CyberSource::Report';
use Carp;
use HTTP::Request::Common qw();
use LWP::UserAgent qw();
=head1 NAME
lib/Business/CyberSource/Report/PaymentEvents.pm view on Meta::CPAN
my $url = ( $self->use_production_system() ? $PRODUCTION_URL : $TEST_URL )
. '/DownloadReport/' . $date . '/' . $self->get_merchant_id()
. '/PaymentEventsReport.' . $format;
# Send the query.
my $request = HTTP::Request::Common::GET( $url );
$request->authorization_basic(
$self->get_username(),
$self->get_password(),
);
view release on metacpan or search on metacpan
DirectConnect.pm view on Meta::CPAN
$self->{UA} = LWP::UserAgent->new(
exists $self->{timeout}
? (timeout => $self->{timeout})
: ()
);
$self->{REQ} = HTTP::Request->new(POST => $self->{uri}); # Create a request
bless ($self, $class);
}
sub get_data {
my $self = shift;
view release on metacpan or search on metacpan
lib/Business/FedEx/RateRequest.pm view on Meta::CPAN
foreach my $param (@rqd_lst) { unless ( $args{$param} ) { $self->{'err_msg'}="$param required"; return 0; } }
$self->{UA} = LWP::UserAgent->new(agent => 'perlworks');
if ( $args{'timeout'} ) { $self->{UA}->timeout($args{'timeout'}); }
#$self->{REQ} = HTTP::Request->new(POST=>$self->{uri}); # Create a request
bless ($self, $class);
}
# - - - - - - - - - - - - - - -
view release on metacpan or search on metacpan
lib/Business/Fixflo/Client.pm view on Meta::CPAN
}
sub _build_request {
my ( $self,$method,$path ) = @_;
my $req = HTTP::Request->new(
# passing through the absolute URL means we don't build it
$method => $path =~ /^http/
? $path : join( '/',$self->base_url . $self->api_path,$path ),
);
view release on metacpan or search on metacpan
lib/Business/GoCardless/Client.pm view on Meta::CPAN
$credentials =~ s/\s//g;
my $ua = LWP::UserAgent->new;
$ua->agent( $self->user_agent );
my $req = HTTP::Request->new(
POST => join( '/',$self->base_url . $self->api_path,'confirm' )
);
$req->header( 'Authorization' => "Basic $credentials" );
$req->header( 'Accept' => 'application/json' );
lib/Business/GoCardless/Client.pm view on Meta::CPAN
my ( $self,$method,$path,$params ) = @_;
my $ua = LWP::UserAgent->new;
$ua->agent( $self->user_agent );
my $req = HTTP::Request->new(
# passing through the absolute URL means we don't build it
$method => my $uri = $path =~ /^http/
? $path : join( '/',$self->base_url . $self->api_path . $path ),
);
view release on metacpan or search on metacpan
lib/Business/MaxMind/HTTPBase.pm view on Meta::CPAN
);
$query_string .= "&clientAPI=$API_VERSION";
if ( $self->{"timeout"} > 0 ) {
$self->{ua}->timeout( $self->{"timeout"} );
}
my $request = HTTP::Request->new( 'POST', $url );
$request->content_type('application/x-www-form-urlencoded');
$request->content($query_string);
if ( $self->{debug} ) {
print STDERR "sending HTTP::Request: " . $request->as_string;
}
my $response = $self->{ua}->request($request);
if ( $response->is_success ) {
my $content = $response->content;
my @kvpair = split( ';', $content );
view release on metacpan or search on metacpan
lib/Business/MollieAPI/Resource.pm view on Meta::CPAN
package Business::MollieAPI::Resource;
use Moo::Role;
use HTTP::Request;
use HTTP::Request::Common;
use JSON::XS;
has client => (
is => 'ro',
);
view release on metacpan or search on metacpan
sub verify{
my($self)=shift;
my($ua) = new LWP::UserAgent;
my($req) = new HTTP::Request 'POST',$REFERAL_URL;
$req->content_type('application/x-www-form-urlencoded');
$req->content($self->cgi->query_string);
my($res) = $ua->request($req);
if ($res->content eq 'AUTHORISED'){ $self->set_authorised; return 1 }
view release on metacpan or search on metacpan
lib/Business/OnlinePayment/BitPay/Client.pm view on Meta::CPAN
use Carp;
use warnings;
use Mozilla::CA;
use LWP::UserAgent;
use HTTP::Request;
use LWP::Protocol::https;
use Business::OnlinePayment::BitPay::KeyUtils;
use JSON;
use JSON::Parse 'parse_json';
require IO::Socket::SSL;
lib/Business/OnlinePayment/BitPay/Client.pm view on Meta::CPAN
my %opts = @_;
my $path = $opts{"path"};
my $public = $opts{"public"};
my $uri = $self->{apiUri} or croak "no api_uri exists for object";
$uri = $uri . "/" . $path;
my $request = HTTP::Request->new(GET => $uri);
$request->content($jsonc);
$request->header('content-type' => 'application/json');
$request->header('X-BitPay-Plugin-Info' => 'PerlLib');
$request->header('User-Agent' => 'perl-bitpay-client');
unless($public){
lib/Business/OnlinePayment/BitPay/Client.pm view on Meta::CPAN
my %opts = @_;
my $path = $opts{"path"};
my %content = %{%opts->{"params"}};
my $uri = $self->{apiUri} or croak "no api_uri exists for object";
$uri = $uri . "/" . $path;
my $request = HTTP::Request->new(POST => $uri);
my $ua = LWP::UserAgent->new;
$ua->ssl_opts( verify_hostname=> 0, SSL_ca_file => Mozilla::CA::SSL_ca_file(), SSL_Version => 'TLSv2', SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE);
my $jsonc = encode_json \%content;
$request->content($jsonc);
$request->header('content-type' => 'application/json');
view release on metacpan or search on metacpan
use strict;
use warnings;
use Mozilla::CA;
use Test::More;
use LWP::UserAgent;
use HTTP::Request;
use LWP::Protocol::https;
use JSON;
use JSON::Parse 'parse_json';
use IO::Socket::SSL;
sub test_can_connect_to_bitpay_api {
my $uri = "https://bitpay.com/tokens";
my $pem = Business::OnlinePayment::BitPay::KeyUtils::bpGeneratePem();
my $sin = Business::OnlinePayment::BitPay::KeyUtils::bpGenerateSinFromPem($pem);
my $request = HTTP::Request->new(POST => $uri);
$request->header('content-type' => 'application/json');
my %content = ('id'=>$sin);
my $jsonc = encode_json \%content;
$request->content($jsonc);
my $ua = LWP::UserAgent->new;
view release on metacpan or search on metacpan
lib/Business/OnlinePayment/Iridium/Action.pm view on Meta::CPAN
package Business::OnlinePayment::Iridium::Action;
use Moose::Role;
use Template;
use LWP::UserAgent ();
use HTTP::Request ();
use XML::Simple ();
# PODNAME: Business::OnlinePayment::Iridium::Action
# ABSTRACT: Send / receive data to / from PayVector
lib/Business/OnlinePayment/Iridium/Action.pm view on Meta::CPAN
my $content = $self->_build_req_content;
my $action_url = 'https://www.thepaymentgateway.net/';
my $ua = $self->_user_agent;
my @SERVERS = $self->SERVERS;
my $req = HTTP::Request->new( POST => $SERVERS[0] );
$req->content_type('text/xml; charset=UTF-8');
$req->header( 'SOAPAction' => $action_url . $self->_type );
$req->content($content);
$req->content_length( length($content) );
my $res = $ua->request($req);
view release on metacpan or search on metacpan
use Carp;
use Tie::IxHash;
use XML::Simple;
use XML::Writer;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Request::Common qw (POST);
use Date::Calc qw(Add_Delta_YM Add_Delta_Days);
use Business::OnlinePayment;
#use Business::OnlinePayment::HTTPS;
use vars qw($VERSION $DEBUG @ISA $me);
view release on metacpan or search on metacpan
lib/Business/PayPal/NVP.pm view on Meta::CPAN
my %args = @_;
my $lwp = $UserAgent;
$lwp->timeout($Timeout) if $Timeout;
$lwp->agent("perl-Business-PayPal-NVP/$VERSION");
my $req = HTTP::Request->new( POST => $self->AUTH_CRED('url') );
$req->content_type( 'application/x-www-form-urlencoded' );
my $content = _build_content( USER => $self->AUTH_CRED('user'),
PWD => $self->AUTH_CRED('pwd'),
SIGNATURE => $self->AUTH_CRED('sig'),