view release on metacpan or search on metacpan
[INTERNALS]
- Migrated Makefile.PL to use Module::Install. This allows me to keep the hairy
Makefile.PL stuff I have, but easily add 'no_index' and 'recommends' metadata.
- test suite clean up.
- new required modules: Scalar::Util and HTTP::Request::Common
1.2 Thu Dec 15 22:35:39 EST 2005
[BUG FIXES]
- Fixed bug in store_uploads() from improper hash usage.
view release on metacpan or search on metacpan
doc/html2ps view on Meta::CPAN
}
sub gu {
if($package{'libwww-perl'}) {
require LWP::UserAgent;
$ua=new LWP::UserAgent;
$req = HTTP::Request->new(GET => $url);
$req->authorization_basic(@_) if(@_);
$ua->agent($spoof) if($spoof);
my $res = $ua->request($req);
$code=$res->code;
$contyp=$res->header('content-type');
view release on metacpan or search on metacpan
lib/CMS/MediaWiki.pm view on Meta::CPAN
use strict;
my $package = __PACKAGE__;
our $VERSION = '0.8014';
use LWP::UserAgent;
use HTTP::Request::Common;
# GLOBAL VARIABLES
my %Var = ();
my $contentType = "";
my $ua;
view release on metacpan or search on metacpan
CachingProxy.pm view on Meta::CPAN
$cache->set($CK, 1, $expire ); # doesn't seem like we should have to do this, but apparently we do
warn "[DEBUG] getting $URL\n" if $this->{debug};
my $fh = $cache->handle( $CK, ">", $expire );
my $request = HTTP::Request->new(GET => $URL);
my $announced_header;
my $response = $this->{ua}->request($request, sub {
my $chunk = shift;
view release on metacpan or search on metacpan
lib/CPAN/Faker/HTTPD.pm view on Meta::CPAN
files under the fake CPAN. Can be overriden during construction.
=head2 app
Coderef that will be passed to L<Test::Fake::HTTPD/run>. It converts the
L<HTTP::Request> object to a L<PSGI> environment hash before transferring
control on to the L</server>. Can be overriden during construction.
=head2 dest
Directory in which to construct the CPAN instance. Same as in L<CPAN::Faker>,
view release on metacpan or search on metacpan
t/data-test/resources.yml view on Meta::CPAN
HTML::Form: 1.038
HTML::HeadParser: 0
HTML::Parser: 3.33
HTML::TokeParser: 2.28
HTTP::Daemon: 0
HTTP::Request: 1.3
HTTP::Server::Simple: 0.35
HTTP::Server::Simple::CGI: 0
HTTP::Status: 0
LWP: 5.829
LWP::UserAgent: 5.829
view release on metacpan or search on metacpan
lib/CPAN/Mini/Inject/REST/Client/API.pm view on Meta::CPAN
package CPAN::Mini::Inject::REST::Client::API;
use Moose;
use Carp qw/confess/;
use HTTP::Request::Common;
use JSON;
use MIME::Base64;
use REST::Client;
use Try::Tiny;
use URI;
view release on metacpan or search on metacpan
lib/CPAN/Mini/Inject/Remote.pm view on Meta::CPAN
use Params::Validate qw/validate
SCALAR/;
use File::Spec;
use YAML::Any qw/LoadFile/;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Request::Common;
use Data::Dumper;
use Carp;
=head1 NAME
view release on metacpan or search on metacpan
t/WebserverTester.pm view on Meta::CPAN
# Copied and adapted from the CPAN-Mini-Webserver-0.51 distribution
use strict;
use warnings;
use HTTP::Request;
use Plack::Test;
use Test::Builder;
use URI;
use URI::QueryParam;
t/WebserverTester.pm view on Meta::CPAN
while ( @_ ) {
my $name = shift;
my $value = shift;
$uri->query_param($name, $value);
}
my $req = HTTP::Request->new(GET => $uri);
my $res;
test_psgi $app, sub {
my ( $cb ) = @_;
view release on metacpan or search on metacpan
conf/config-deb.yaml view on Meta::CPAN
---
global:
fix_meta_yml_modules:
- HTTP::Request::AsCGI
fix_module_name:
- from: Template::Toolkit
to: Template
fix_package_depends: []
no_depends:
view release on metacpan or search on metacpan
t/lib/TestSQL.pm view on Meta::CPAN
'LWP::Protocol::gopher' => 1,
'LWP::ConnCache' => 1,
'Net::HTTPS' => 1,
'HTTP::Cookies' => 1,
'HTTP::Message' => 1,
'HTTP::Request::Common' => 1,
'HTTP::Headers::Auth' => 1,
'LWP::Protocol::loopback' => 1,
'HTTP::Response' => 1,
'HTTP::Cookies::Netscape' => 1,
'LWP::Authen::Ntlm' => 1,
'LWP::Authen::Basic' => 1,
'WWW::RobotRules' => 1,
'LWP::Protocol' => 1,
'HTTP::Request' => 1,
'LWP' => 1,
'LWP::MediaTypes' => 1,
'LWP::Protocol::data' => 1,
'HTTP::Negotiate' => 1,
'LWP::Protocol::https' => 1,
t/lib/TestSQL.pm view on Meta::CPAN
},
'LWP::EventLoop' => {
'dist_name' => 'LWPng-alpha',
'mod_vers' => '0.11'
},
'HTTP::Request' => {
'dist_name' => 'libwww-perl',
'mod_vers' => '1.40'
},
'MIME::Base64::Perl' => {
'dist_name' => 'MIME-Base64-Perl',
t/lib/TestSQL.pm view on Meta::CPAN
},
'HTTP::Cookies' => {
'dist_name' => 'libwww-perl',
'mod_vers' => '1.39'
},
'HTTP::Request::Common' => {
'dist_name' => 'libwww-perl',
'mod_vers' => '1.26'
},
'Digest::HMAC_SHA1' => {
'dist_name' => 'Digest-HMAC',
view release on metacpan or search on metacpan
lib/CPAN/Search/Author.pm view on Meta::CPAN
use 5.006;
use strict; use warnings;
use overload q("") => \&as_string, fallback => 1;
use Data::Dumper;
use HTTP::Request;
use LWP::UserAgent;
use HTML::Entities qw/decode_entities/;
our $DEBUG = 0;
lib/CPAN/Search/Author.pm view on Meta::CPAN
my $self = shift;
my $id = shift;
my $browser = $self->{_browser};
$browser->env_proxy;
my $request = HTTP::Request->new(POST=>qq[http://search.cpan.org/search?query=$id&mode=author]);
my $response = $browser->request($request);
print {*STDOUT} "Search By Id [$id] Status: " . $response->status_line . "\n" if $DEBUG;
die("ERROR: Couldn't connect to search.cpan.org.\n") unless $response->is_success;
my $contents = $response->content;
lib/CPAN/Search/Author.pm view on Meta::CPAN
die("ERROR: Invalid letter [$letter].\n") unless ($letter =~ /[A-Z]/i);
my $browser = $self->{_browser};
$browser->env_proxy;
my $request = HTTP::Request->new(POST=>qq[http://search.cpan.org/author/?$letter]);
my $response = $browser->request($request);
print {*STDOUT} "Search Id Starts With [$letter] Status: " . $response->status_line . "\n" if $DEBUG;
die("ERROR: Couldn't connect to search.cpan.org.\n") unless $response->is_success;
my $contents = $response->content;
lib/CPAN/Search/Author.pm view on Meta::CPAN
sub where_name_contains {
my ($self, $query) = @_;
my $browser = $self->{_browser};
$browser->env_proxy;
my $request = HTTP::Request->new(POST=>qq[http://search.cpan.org/search?query=$query&mode=author]);
my $response = $browser->request($request);
print {*STDOUT} "Search By Name Contains [$query] Status: " . $response->status_line . "\n" if $DEBUG;
die("ERROR: Couldn't connect to search.cpan.org.\n") unless $response->is_success;
my $contents = $response->content;
view release on metacpan or search on metacpan
t/data/metabase.sql view on Meta::CPAN
INSERT INTO `metabase` (guid,id,updated,report) VALUES ('0cbce1be-07f0-11e3-9db1-878205732d18',33578672,'2013-08-18T10:22:13Z','{\"CPAN::Testers::Fact::LegacyReport\":{\"content\":\"{\\\"osversion\\\":\\\"8.0-release\\\",\\\"archname\\\":\\\"i386-fre...
INSERT INTO `metabase` (guid,id,updated,report) VALUES ('5ad79194-6cdc-1014-b4e3-38f2223f278b',33578876,'2013-08-18T10:34:33Z','{\"CPAN::Testers::Fact::LegacyReport\":{\"content\":\"{\\\"osversion\\\":\\\"5.2\\\",\\\"archname\\\":\\\"MSWin32-x86-mult...
INSERT INTO `metabase` (guid,id,updated,report) VALUES ('66261f56-07f3-11e3-ac5a-df7f19362e69',33579060,'2013-08-18T10:46:12Z','{\"CPAN::Testers::Fact::LegacyReport\":{\"content\":\"{\\\"osversion\\\":\\\"8.0-release\\\",\\\"archname\\\":\\\"i386-fre...
INSERT INTO `metabase` (guid,id,updated,report) VALUES ('b35d7c0c-07f2-11e3-afab-ccf1a108922b',33578988,'2013-08-18T10:41:12Z','{\"CPAN::Testers::Fact::LegacyReport\":{\"content\":\"{\\\"osversion\\\":\\\"8.0-release\\\",\\\"archname\\\":\\\"i386-fre...
INSERT INTO `metabase` (guid,id,updated,report) VALUES ('ffdb8ffc-07f1-11e3-a0a5-bfc8c70fa3a9',33578912,'2013-08-18T10:36:11Z','{\"CPAN::Testers::Fact::LegacyReport\":{\"content\":\"{\\\"osversion\\\":\\\"8.0-release-p4\\\",\\\"archname\\\":\\\"i386-...
view release on metacpan or search on metacpan
t/var/nntp-testers/5928865 view on Meta::CPAN
Catalyst::View::TT 0.31 0
CatalystX::Component::Traits 0.14 0.13
CatalystX::InjectComponent 0.024 0
ExtUtils::MakeMaker 6.55_02 6.42
HTML::FormHandler 0.28001 0.26001
HTTP::Request::Common 5.824 0
Moose 0.92 0
Moose::Autobox 0.10 0.09
MooseX::MethodAttributes 0.18 0.18
MooseX::RelatedClassRoles 0.004 0.004
MooseX::Types 0.20 0
view release on metacpan or search on metacpan
lib/CPAN/Testers/WWW/Statistics/Graphs.pm view on Meta::CPAN
use File::Basename;
use File::Path;
use HTML::Entities;
use IO::File;
use LWP::UserAgent;
use HTTP::Request;
# -------------------------------------
# Variables
my %month = (
lib/CPAN/Testers/WWW/Statistics/Graphs.pm view on Meta::CPAN
$self->{parent}->_log("url - [".(length $url)."] $url");
# print "$url\n";
my $res;
eval {
my $req = HTTP::Request->new(GET => $url);
$res = $lwp->request($req);
};
if($@ || !$res->is_success()) {
$file = "$results-$r.html";
view release on metacpan or search on metacpan
lib/CPAN/Uploader.pm view on Meta::CPAN
#pod =cut
use Carp ();
use File::Basename ();
use File::Spec;
use HTTP::Request::Common qw(POST);
use HTTP::Status;
use LWP::UserAgent;
my $UPLOAD_URI = $ENV{CPAN_UPLOADER_UPLOAD_URI}
|| 'https://pause.perl.org/pause/authenquery?ACTION=add_uri';
view release on metacpan or search on metacpan
t/data/build.fresh.log view on Meta::CPAN
Entering Metabase-Client-Simple-0.010
Checking configure dependencies from META.json
Checking if you have ExtUtils::MakeMaker 6.17 ... Yes (7.04)
Configuring Metabase-Client-Simple-0.010
Running Makefile.PL
Warning: prerequisite HTTP::Request::Common 0 not found.
Warning: prerequisite HTTP::Status 5.817 not found.
Warning: prerequisite LWP::UserAgent 5.54 not found.
Checking if your kit is complete...
Looks good
Generating a Unix-style Makefile
t/data/build.fresh.log view on Meta::CPAN
Checking if you have JSON 2 ... Yes (2.90)
Checking if you have strict 0 ... Yes (1.09)
Checking if you have Metabase::User::Secret 0 ... Yes (0.024)
Checking if you have Test::More 0.88 ... Yes (1.001014)
Checking if you have HTTP::Status 5.817 ... No
Checking if you have HTTP::Request::Common 0 ... No
Checking if you have ExtUtils::MakeMaker 0 ... Yes (7.04)
Checking if you have warnings 0 ... Yes (1.32)
Checking if you have File::Spec 0 ... Yes (3.56)
Checking if you have URI 0 ... Yes (1.67)
Checking if you have LWP::UserAgent 5.54 ... No
==> Found dependencies: HTTP::Status, HTTP::Request::Common, LWP::UserAgent
Searching HTTP::Status on mirror http://mirrors.gossamer-threads.com/CPAN ...
--> Working on HTTP::Status
Fetching http://mirrors.gossamer-threads.com/CPAN/authors/id/G/GA/GAAS/HTTP-Message-6.06.tar.gz
-> OK
Unpacking HTTP-Message-6.06.tar.gz
t/data/build.fresh.log view on Meta::CPAN
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/lib/perl5/HTTP/Request/Common.pm
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/man/man3/HTTP::Config.0
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/man/man3/HTTP::Headers.0
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/man/man3/HTTP::Headers::Util.0
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/man/man3/HTTP::Message.0
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/man/man3/HTTP::Request.0
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/man/man3/HTTP::Request::Common.0
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/man/man3/HTTP::Response.0
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/man/man3/HTTP::Status.0
Appending installation info to /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/lib/perl5/darwin-2level/perllocal.pod
-> OK
Successfully installed HTTP-Message-6.06
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/lib/perl5/darwin-2level/.meta/HTTP-Message-6.06/MYMETA.json
Installing /Volumes/amaretto/Users/ether/.perlbrew/libs/21.11@std/lib/perl5/darwin-2level/.meta/HTTP-Message-6.06/install.json
Searching HTTP::Request::Common on mirror http://mirrors.gossamer-threads.com/CPAN ...
Already tried HTTP-Message-6.06. Skipping.
Searching LWP::UserAgent on mirror http://mirrors.gossamer-threads.com/CPAN ...
--> Working on LWP::UserAgent
Fetching http://mirrors.gossamer-threads.com/CPAN/authors/id/E/ET/ETHER/libwww-perl-6.13.tar.gz
-> OK
t/data/build.fresh.log view on Meta::CPAN
Checking if you have HTTP::Response 6 ... Yes (6.04)
Checking if you have Test::More 0 ... Yes (1.001014)
Checking if you have HTTP::Status 6 ... Yes (6.03)
Checking if you have URI::Escape 0 ... Yes (3.31)
Checking if you have IO::Socket 0 ... Yes (1.38)
Checking if you have HTTP::Request::Common 6 ... Yes (6.04)
Checking if you have HTML::Entities 0 ... No
Checking if you have Test 0 ... Yes (1.26)
Checking if you have Net::FTP 2.58 ... Yes (3.05)
Checking if you have MIME::Base64 2.1 ... Yes (3.15)
Checking if you have HTTP::Request 6 ... Yes (6.00)
==> Found dependencies: WWW::RobotRules, HTML::HeadParser, HTTP::Negotiate, File::Listing, HTTP::Daemon, HTTP::Cookies, Net::HTTP, HTML::Entities
Searching WWW::RobotRules on mirror http://mirrors.gossamer-threads.com/CPAN ...
--> Working on WWW::RobotRules
Fetching http://mirrors.gossamer-threads.com/CPAN/authors/id/G/GA/GAAS/WWW-RobotRules-6.02.tar.gz
-> OK
t/data/build.fresh.log view on Meta::CPAN
Checking if you have ExtUtils::MakeMaker 0 ... Yes (7.04)
Checking if you have HTTP::Response 6 ... Yes (6.04)
Checking if you have LWP::MediaTypes 6 ... Yes (6.02)
Checking if you have HTTP::Date 6 ... Yes (6.02)
Checking if you have Sys::Hostname 0 ... Yes (1.20)
Checking if you have HTTP::Request 6 ... Yes (6.00)
Checking if you have IO::Socket 0 ... Yes (1.38)
Checking if you have HTTP::Status 6 ... Yes (6.03)
Building and testing HTTP-Daemon-6.01
Manifying 1 pod document
PERL_DL_NONLAZY=1 "/Volumes/amaretto/Users/ether/perl5/perlbrew/perls/21.11/bin/perl5.21.11" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/data/build.fresh.log view on Meta::CPAN
#
# === Runtime Requires ===
#
# Module Want Have
# --------------------- ----- ----
# HTTP::Request::Common any 6.04
# HTTP::Status 5.817 6.03
# JSON 2 2.90
# LWP::UserAgent 5.54 6.13
# URI any 1.67
# strict any 1.09
view release on metacpan or search on metacpan
lib/CPAN.pm view on Meta::CPAN
LWP => [ # we frequently had "Can't locate object
# method "new" via package "LWP::UserAgent" at
# (eval 69) line 2006
sub {require LWP},
sub {require LWP::UserAgent},
sub {require HTTP::Request},
sub {require URI::URL;
unless (CPAN::Version->vge(URI::URL::->VERSION,0.08)) {
for ("Will not use URI::URL, need 0.08\n") {
$CPAN::Frontend->mywarn($_);
die $_;
view release on metacpan or search on metacpan
inc/bundle/File/Fetch.pm view on Meta::CPAN
### modules required to download with lwp ###
my $use_list = {
LWP => '0.0',
'LWP::UserAgent' => '0.0',
'HTTP::Request' => '0.0',
'HTTP::Status' => '0.0',
URI => '0.0',
};
view release on metacpan or search on metacpan
cpan-security-advisory.json view on Meta::CPAN
{"dists":{"Redland":{"versions":[{"date":"2003-09-04T14:24:10","version":"v0.9.13"},{"version":"v0.9.13.2","date":"2003-09-07T19:13:18"},{"version":"v0.9.14.1","date":"2003-09-08T18:13:06"},{"date":"2006-11-28T06:09:59","version":"v1.0.5.2"},{"date":...
view release on metacpan or search on metacpan
t/data/Haineko-cpanfile view on Meta::CPAN
requires 'Try::Tiny', '0.16';
on test => sub {
requires 'Test::More', '0.98';
requires 'Plack::Test', '';
requires 'HTTP::Request', '6.00';
};
on develop => sub {
requires 'Test::UsedModules', '0.03';
requires 'IO::Socket::INET', '1.31';
view release on metacpan or search on metacpan
lib/CSS/Inliner.pm view on Meta::CPAN
local $URI::ABS_REMOTE_LEADING_DOTS = 1;
# Create a request
my $uri = URI->new($$params{url});
my $req = HTTP::Request->new('GET', $uri, [ 'Accept' => 'text/html, */*' ]);
# Pass request to the user agent and get a response back
my $res = $ua->request($req);
# if not successful
view release on metacpan or search on metacpan
examples/EVStest.pl view on Meta::CPAN
#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
use CaCORE::ApplicationService;
use CaCORE::EVS;
#
# ApplicationService is a utility classs that encapsulates webservice invocation to caCORE server.
view release on metacpan or search on metacpan
lib/Cache/Ehcache.pm view on Meta::CPAN
return {%args};
}
sub BUILD {
my $self = shift;
my $req = HTTP::Request->new( 'PUT', $self->_make_url() );
my $res = $self->ua->request($req);
}
__PACKAGE__->meta->make_immutable;
no Moose;
use HTTP::Request;
use HTTP::Status qw(:constants);
sub set {
my $self = shift;
my ( $key, $value, $expires_in ) = @_;
my @header =
($expires_in) ? ( 'ehcacheTimeToLiveSeconds' => $expires_in ) : ();
my $req =
HTTP::Request->new( 'PUT', $self->_make_url($key), \@header, $value );
my $res = $self->ua->request($req);
unless ( $res->is_success ) {
warn $res->status_line . "\n";
}
}
lib/Cache/Ehcache.pm view on Meta::CPAN
}
sub delete {
my $self = shift;
my ($key) = @_;
my $req = HTTP::Request->new( 'DELETE', $self->_make_url($key) );
my $res = $self->ua->request($req);
if ( !$res->is_success && $res->code != HTTP_NOT_FOUND ) {
warn $res->status_line . "\n";
}
}
sub clear {
my $self = shift;
my $req = HTTP::Request->new( 'DELETE', $self->_make_url('*') );
my $res = $self->ua->request($req);
unless ( $res->is_success ) {
warn $res->status_line . "\n";
}
}
view release on metacpan or search on metacpan
lib/CanvasCloud/API.pm view on Meta::CPAN
}
sub request {
my ( $self, $method, $uri ) = @_;
my $r = HTTP::Request->new( $method => $uri );
$r->header( 'Authorization' => 'Bearer '.$self->token );
return $r;
}
lib/CanvasCloud/API.pm view on Meta::CPAN
die 'Bad Link: none of listed relation found - '.join(', ', keys %struct) unless ( $TYPE );
}
return \%struct;
}
## Taken from HTTP::Request::Common
sub encode_url {
my ( $self, $content ) = @_;
my $url = URI->new('http:');
lib/CanvasCloud/API.pm view on Meta::CPAN
Base uri for Canvas LMS
=head2 request( $method, $uri )
returns HTTP::Request;
request creates a HTTP::Request->new( $method => $uri ) it then sets the 'Authorization' header
=head2 send( $request )
Attempts to send request to Canvas recursively depending on return Link header.
Finally returns a hashref data structure as response from Canvas.
view release on metacpan or search on metacpan
lib/Captcha/AreYouAHuman.pm view on Meta::CPAN
}
# Make the request
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(POST => 'https://' . $server .
'/ayahwebservices/index.php/ayahwebservice/scoreGame');
$req->content_type('application/x-www-form-urlencoded');
$req->content('session_secret=' . uri_escape($session_secret) . '&client_ip=' .
uri_escape($client_ip));
my $res = $ua->request($req);
view release on metacpan or search on metacpan
lib/Carrot/Personality/Structured/Internet/Protocol/HTTP/Request./unit_tests/proof_of_concept.pl view on Meta::CPAN
package main
# /type library
# /capability "Proof of concept for ::HTTP::Request"
{
use strict;
use warnings 'FATAL' => 'all';
my $expressiveness = Carrot::individuality;
$expressiveness->package_resolver->provide(
my $request_class = '::Personality::Structured::Internet::Protocol::HTTP::Request');
my $request = $request_class->indirect_constructor;
$request->header_lines->header_host->assign_value('localhost');
$request->line->method->assign_value('GET');
view release on metacpan or search on metacpan
"Plack" : "0.992"
}
},
"test" : {
"requires" : {
"HTTP::Request::Common" : "0",
"Test::More" : "0.88",
"Web::Simple" : "0.016"
}
}
},
view release on metacpan or search on metacpan
t/lib/Test/Rest.pm view on Meta::CPAN
{
url => { type => SCALAR },
headers => { type => HASHREF, default => {} },
},
);
my $req = HTTP::Request->new( "$method" => $p{'url'} );
$req->header( $_ => $p{headers}{$_} ) for keys %{ $p{headers} };
$req->content_type( $self->{'content_type'} );
return $req;
};
}
t/lib/Test/Rest.pm view on Meta::CPAN
url => { type => SCALAR },
data => 1,
headers => { type => HASHREF, default => {} },
},
);
my $req = HTTP::Request->new( "$method" => $p{'url'} );
$req->header( $_ => $p{headers}{$_} ) for keys %{ $p{headers} };
$req->content_type( $self->{'content_type'} );
$req->content_length(
do { use bytes; length( $p{'data'} ) }
);