view release on metacpan or search on metacpan
t/oddmuse-wiki.pl view on Meta::CPAN
if (keys %todo > 1) { # try parallel access if available
eval { # see code example in LWP::Parallel, not LWP::Parallel::UserAgent (no callbacks here)
require LWP::Parallel::UserAgent;
my $pua = LWP::Parallel::UserAgent->new();
foreach my $uri (keys %todo) {
if (my $res = $pua->register(HTTP::Request->new('GET', $uri))) {
$str .= $res->error_as_HTML;
}
}
%todo = (); # because the uris in the response may have changed due to redirects
my $entries = $pua->wait();
view release on metacpan or search on metacpan
lib/App/plackbench.pm view on Meta::CPAN
use strict;
use warnings;
use autodie;
use v5.10;
use HTTP::Request qw();
use List::Util qw( reduce );
use Plack::Test qw();
use Plack::Util qw();
use Scalar::Util qw( reftype );
use Time::HiRes qw( gettimeofday tv_interval );
lib/App/plackbench.pm view on Meta::CPAN
my $self = shift;
my @requests;
if ( $self->post_data() ) {
@requests = map {
my $req = HTTP::Request->new( POST => $self->uri() );
$req->content($_);
$req;
} @{ $self->post_data() };
}
else {
@requests = ( HTTP::Request->new( GET => $self->uri() ) );
}
$self->_fixup_requests(\@requests);
return \@requests;
lib/App/plackbench.pm view on Meta::CPAN
=head2 fixup
An arrayref of subroutine references to do any preprocessing of the request.
Each subroutine reference will be called in order (though you shouldn't rely on
that) and passed a reference to the L<HTTP::Request> object.
Each sub will be called once for every unique request. Under a normal GET
request, there will only be one unique request. However if L</post_data> is
being used there will be one unique request for request body.
view release on metacpan or search on metacpan
bin/plx-packed view on Meta::CPAN
$fatpacked{"App/cpanminus/Dependency.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'APP_CPANMINUS_DEPENDENCY';
package App::cpanminus::Dependency;use strict;use CPAN::Meta::Requirements;sub from_prereqs {my($class,$prereqs,$phases,$types)=@_;my@deps;for my$type (@$types){push@deps,$class->from_versions($prereqs->merged_requirements($phases,[$type])->as_st...
APP_CPANMINUS_DEPENDENCY
$fatpacked{"App/cpanminus/script.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'APP_CPANMINUS_SCRIPT';
package App::cpanminus::script;use strict;use Config;use Cwd ();use App::cpanminus;use App::cpanminus::Dependency;use File::Basename ();use File::Find ();use File::Path ();use File::Spec ();use File::Copy ();use File::Temp ();use Getopt::Long ();...
It appears your cpanm executable was installed via `perlbrew install-cpanm`.
cpanm --self-upgrade won't upgrade the version of cpanm you're running.
Run the following command to get it upgraded.
view release on metacpan or search on metacpan
xt/show_deps_by_metacpan.t view on Meta::CPAN
\tFile::ShareDir
\tFile::ShareDir::Install
\tFilesys::Notify::Simple
\tHTTP::Body
\tHTTP::Message
\tHTTP::Request::AsCGI
\tHTTP::Server::Simple::PSGI
\tHTTP::Tiny
\tHash::MultiValue
\tIO::Handle::Util
\tLWP::Protocol::http10
xt/show_deps_by_metacpan.t view on Meta::CPAN
\tFile::ShareDir
\tFile::ShareDir::Install
\tFilesys::Notify::Simple
\tHTTP::Body
\tHTTP::Message
\tHTTP::Request::AsCGI
\tHTTP::Server::Simple::PSGI
\tHash::MultiValue
\tIO::Handle::Util
\tLWP::Protocol::http10
\tLWP::UserAgent
view release on metacpan or search on metacpan
"recommends" : {
"EV" : "0"
},
"requires" : {
"Capture::Tiny" : "0",
"HTTP::Request::Common" : "0",
"Mojo::DOM58" : "0",
"Test2::Tools::DOM" : "0",
"Test2::Tools::HTTP" : "0",
"Test2::V0" : "0.000121",
"Test::Script" : "0",
view release on metacpan or search on metacpan
eg/content/porting-a-dancer-plugin-to-dancer2.md view on Meta::CPAN
above test as described in the
[Dancer2 manual’s “testing†section]({{< mcpan "Dancer2::Manual#TESTING" >}}):
```perl
use Plack::Test; # Additional testing modules
use HTTP::Request::Common;
{
package TestApp; # Still a simple application, but now with a name
use Dancer2;
use Dancer2::Plugin::MobileDevice;
eg/content/porting-a-dancer-plugin-to-dancer2.md view on Meta::CPAN
- Wrap each hook function in a `$self->dsl->hook` call
**Port tests:**
- Import[Plack::Test]({{< mcpan "Plack::Test" >}}}) and
[HTTP::Request::Common]({{< mcpan "HTTP::Request::Common" >}})
instead of Dancer::Test
- Give the application under test a `package` statement
- Create a Plack::Test instance representing the application
- Create requests using HTTP::Request::Common methods
- Change `$response->{content}` to `$response->content`
view release on metacpan or search on metacpan
lib/ArangoDB2/HTTP/LWP.pm view on Meta::CPAN
my $uri = $self->arango->uri->clone;
# set path for request
$uri->path($path);
# set query params on URI if passed
$uri->query_form($args) if $args;
# build HTTP::Request
my $request = HTTP::Request->new('PATCH', $uri);
$request->content($patch);
# make request
my $response = $self->lwp->request($request);
# do not process response if raw requested
return $response if $raw;
view release on metacpan or search on metacpan
t/plugin_i18n.t view on Meta::CPAN
# test Lexicon
{
my $expected = 'Bonjour';
my $request =
HTTP::Request->new( GET => '/maketext/Hello' );
$request->header( 'Accept-Language' => 'fr' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
t/plugin_i18n.t view on Meta::CPAN
# test .po
{
my $expected = 'Hallo';
my $request =
HTTP::Request->new( GET => '/maketext/Hello' );
$request->header( 'Accept-Language' => 'de' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
t/plugin_i18n.t view on Meta::CPAN
# test language()
{
my $expected = 'fr';
my $request =
HTTP::Request->new( GET => '/current_language' );
$request->header( 'Accept-Language' => 'fr' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
t/plugin_i18n.t view on Meta::CPAN
# test fallback (i.e. fr-ca => fr)
{
my $expected = 'fr';
my $request =
HTTP::Request->new( GET => '/current_language' );
$request->header( 'Accept-Language' => 'fr-ca' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
view release on metacpan or search on metacpan
"perl" : "5.008001"
}
},
"test" : {
"requires" : {
"HTTP::Request::Common" : "0",
"Test::More" : "0.98",
"Test::Requires" : "0"
}
}
},
view release on metacpan or search on metacpan
lib/Ark/Plugin/ReproxyCallback/OpenSocial.pm view on Meta::CPAN
package Ark::Plugin::ReproxyCallback::OpenSocial;
use strict;
use warnings;
use Ark::Plugin;
use HTTP::Request;
requires 'reproxy';
has reproxy_callback_opensocial_oauth_consumer_model => (
is => 'rw',
lib/Ark/Plugin/ReproxyCallback/OpenSocial.pm view on Meta::CPAN
my $uri = URI->new( $c->reproxy_callback_opensocial_api_endpoint . $path );
$uri->query_form(%$params) if $params;
$c->reproxy(
request => HTTP::Request->new( $method => $uri ),
callback => $cb,
);
}
sub reproxy_people {
lib/Ark/Plugin/ReproxyCallback/OpenSocial.pm view on Meta::CPAN
my $uri = URI->new( $c->reproxy_callback_opensocial_api_endpoint );
$uri->path( $uri->path . "/people/${guid}/${target}" );
$uri->query_form(%$params) if $params;
$c->reproxy(
request => HTTP::Request->new( GET => $uri ),
callback => $cb,
);
}
1;
view release on metacpan or search on metacpan
lib/Ark/Test.pm view on Meta::CPAN
package Ark::Test;
use Mouse;
use HTTP::Request;
use HTTP::Cookies;
use Plack 0.9910; # only for declare dep version
use Plack::Test;
use FindBin;
lib/Ark/Test.pm view on Meta::CPAN
$persist_app = $app;
$cookie = HTTP::Cookies->new;
}
}
my $req = ref($_[0]) eq 'HTTP::Request' ? $_[0] : HTTP::Request->new(@_);
if ($cookie) {
unless ($req->uri->can('host') and $req->uri->host) {
$req->uri( URI->new('http://localhost' . $req->uri->path_query ) );
$req->header( Host => 'localhost' );
}
view release on metacpan or search on metacpan
lib/Armadito/Agent/HTTP/Client.pm view on Meta::CPAN
=back
=head2 request($request)
Send given HTTP::Request object, handling SSL checking and user authentication
automatically if needed.
view release on metacpan or search on metacpan
"requires" : {
"ExtUtils::MakeMaker" : "0",
"File::Spec" : "0",
"File::Spec::Functions" : "0",
"File::Temp" : "0",
"HTTP::Request::Common" : "0",
"HTTP::Tiny::SPDY" : "0",
"IO::Handle" : "0",
"IPC::Open3" : "0",
"List::Util" : "0",
"Plack::LWPish" : "0",
view release on metacpan or search on metacpan
lib/Artifactory/Client.pm view on Meta::CPAN
use LWP::UserAgent;
use Path::Tiny qw();
use MooseX::StrictConstructor;
use URI::Escape qw(uri_escape);
use File::Basename qw(basename);
use HTTP::Request::StreamingUpload;
use namespace::autoclean;
=head1 NAME
lib/Artifactory/Client.pm view on Meta::CPAN
my @joiners = ( $self->_art_url() . "/$path" );
my $props = $self->_attach_properties( properties => $properties, matrix => 1 );
push @joiners, $props if ($props); # if properties aren't passed in, the function returns empty string
my $url = join( ";", @joiners );
my $req = HTTP::Request::StreamingUpload->new(
PUT => $url,
headers => HTTP::Headers->new( %{$header} ),
( $file ? ( fh => Path::Tiny::path($file)->openr_raw() ) : () ),
);
return $self->request($req);
view release on metacpan or search on metacpan
lib/AsposeBarCodeCloud/ApiClient.pm view on Meta::CPAN
use MIME::Base64;
use LWP::UserAgent;
use HTTP::Headers;
use HTTP::Response;
use HTTP::Request::Common qw(DELETE POST GET HEAD PUT);
use HTTP::Status;
use URI::Query;
use JSON;
use URI::Escape;
use Scalar::Util;
view release on metacpan or search on metacpan
lib/AsposeCellsCloud/ApiClient.pm view on Meta::CPAN
use MIME::Base64;
use LWP::UserAgent;
use HTTP::Headers;
use HTTP::Response;
use HTTP::Request::Common qw(DELETE POST GET HEAD PUT);
use HTTP::Status;
use URI::Query;
use JSON;
use URI::Escape;
use Scalar::Util;
view release on metacpan or search on metacpan
lib/AsposeDiagramCloud/ApiClient.pm view on Meta::CPAN
use MIME::Base64;
use LWP::UserAgent;
use HTTP::Headers;
use HTTP::Response;
use HTTP::Request::Common qw(DELETE POST GET HEAD PUT);
use HTTP::Status;
use URI::Query;
use JSON;
use URI::Escape;
use Scalar::Util;
view release on metacpan or search on metacpan
lib/AsposeEmailCloud/ApiClient.pm view on Meta::CPAN
use MIME::Base64;
use LWP::UserAgent;
use HTTP::Headers;
use HTTP::Response;
use HTTP::Request::Common qw(DELETE POST GET HEAD PUT);
use HTTP::Status;
use URI::Query;
use JSON;
use URI::Escape;
use Scalar::Util;
view release on metacpan or search on metacpan
lib/AsposeImagingCloud/ApiClient.pm view on Meta::CPAN
use MIME::Base64;
use LWP::UserAgent;
use HTTP::Headers;
use HTTP::Response;
use HTTP::Request::Common qw(DELETE POST GET HEAD PUT);
use HTTP::Status;
use URI::Query;
use JSON;
use URI::Escape;
use Scalar::Util;
view release on metacpan or search on metacpan
lib/AsposeOcrCloud/ApiClient.pm view on Meta::CPAN
use MIME::Base64;
use LWP::UserAgent;
use HTTP::Headers;
use HTTP::Response;
use HTTP::Request::Common qw(DELETE POST GET HEAD PUT);
use HTTP::Status;
use URI::Query;
use JSON;
use URI::Escape;
use Scalar::Util;
view release on metacpan or search on metacpan
lib/AsposePdfCloud/ApiClient.pm view on Meta::CPAN
use MIME::Base64;
use LWP::UserAgent;
use HTTP::Headers;
use HTTP::Response;
use HTTP::Request::Common qw(DELETE POST GET HEAD PUT);
use HTTP::Status;
use URI::Query;
use JSON;
use URI::Escape;
use Scalar::Util;
view release on metacpan or search on metacpan
lib/AsposeSlidesCloud/ApiClient.pm view on Meta::CPAN
use MIME::Base64;
use LWP::UserAgent;
use HTTP::Date;
use HTTP::Headers;
use HTTP::Response;
use HTTP::Request::Common qw(DELETE POST GET HEAD PUT);
use HTTP::Status;
use URI::Query;
use JSON;
use URI::Escape;
use Scalar::Util;
view release on metacpan or search on metacpan
lib/AsposeStorageCloud/ApiClient.pm view on Meta::CPAN
use MIME::Base64;
use LWP::UserAgent;
use HTTP::Headers;
use HTTP::Response;
use HTTP::Request::Common qw(DELETE POST GET HEAD PUT);
use HTTP::Status;
use URI::Query;
use JSON;
use URI::Escape;
use Scalar::Util;
view release on metacpan or search on metacpan
lib/AsposeTasksCloud/ApiClient.pm view on Meta::CPAN
use MIME::Base64;
use LWP::UserAgent;
use HTTP::Headers;
use HTTP::Response;
use HTTP::Request::Common qw(DELETE POST GET HEAD PUT);
use HTTP::Status;
use URI::Query;
use JSON;
use URI::Escape;
use Scalar::Util;
view release on metacpan or search on metacpan
lib/AsposeThreeDCloud/ApiClient.pm view on Meta::CPAN
use MIME::Base64;
use LWP::UserAgent;
use HTTP::Headers;
use HTTP::Response;
use HTTP::Request::Common qw(DELETE POST GET HEAD PUT);
use HTTP::Status;
use URI::Query;
use JSON;
use URI::Escape;
use Scalar::Util;
view release on metacpan or search on metacpan
lib/AsposeWordsCloud/ApiClient.pm view on Meta::CPAN
use MIME::Base64;
use LWP::UserAgent;
use HTTP::Headers;
use HTTP::Response;
use HTTP::Request::Common qw(DELETE POST GET HEAD PUT);
use HTTP::Status;
use URI::Query;
use JSON;
use URI::Escape;
use Scalar::Util;
view release on metacpan or search on metacpan
lib/Astro/Catalog/Transport/REST.pm view on Meta::CPAN
# grab the user agent
my $ua = $self->useragent;
# build request
my $request = new HTTP::Request('GET', $URL);
# grab page from web
my $reply = $ua->request($request);
# Look at the result to see if it worked
view release on metacpan or search on metacpan
# build final query URL
$URL = $URL . $options;
# build request
my $request = new HTTP::Request('GET', $URL);
# grab page from web
my $reply = $ua->request($request);
# declare file name
view release on metacpan or search on metacpan
inc/My/Module/Meta.pm view on Meta::CPAN
my ( undef, @extra ) = @_; # Invocant not used.
## if ( ! $self->distribution() ) {
## }
return +{
'Carp' => 0,
'HTTP::Request::Common' => 0,
'LWP::Protocol' => 0, # Comes with LWP, but ...
'LWP::UserAgent' => 0,
## 'SOAP::Lite' => 0,
'Scalar::Util' => 1.01, # Not in Perl 5.6
'URI::Escape' => 0,
view release on metacpan or search on metacpan
Query/Query.pm view on Meta::CPAN
# grab the base URL
my $URL = $self->queryurl();
# build request
my $request = new HTTP::Request('GET', $URL);
# grab page from web
my $reply = $ua->request($request);
if ( ${$reply}{"_rc"} eq 200 ) {