view release on metacpan or search on metacpan
my $ua = LWP::UserAgent->new(conn_cache => LWP::ConnCache->new());
$ua->agent($0);
# Turn off proxy, because the proxy may not pass on all
# information back to here. Squid does that :-(
$ua->no_proxy($ARGV[0]);
my $request = HTTP::Request->new(GET => $ARGV[0]);
$request->protocol('HTTP/1.1');
# HTTP::Response object
my $r = $ua->request($request);
view release on metacpan or search on metacpan
use Test::More;
use CGI::Compile;
use CGI;
use Test::Requires qw(CGI::Emulate::PSGI Plack::Test HTTP::Request::Common);
use CGI::Emulate::PSGI;
use Plack::Test;
use HTTP::Request::Common;
my $sub = CGI::Compile->compile("t/hello.cgi");
my $app = CGI::Emulate::PSGI->handler($sub);
test_psgi app => $app, client => sub {
view release on metacpan or search on metacpan
t/05_lint.t view on Meta::CPAN
use strict;
use Test::More;
use Test::Requires qw( Plack::Test HTTP::Request Plack::Middleware::Lint );
use Test::Requires {
'Plack' => 0.9981,
};
use CGI::Emulate::PSGI;
t/05_lint.t view on Meta::CPAN
my $app = CGI::Emulate::PSGI->handler(sub { print $output });
$app = Plack::Middleware::Lint->wrap($app);
Plack::Test::test_psgi($app, sub {
my $cb = shift;
my $res = $cb->(HTTP::Request->new(GET => "/"));
is $res->code, 302;
});
done_testing;
view release on metacpan or search on metacpan
bin/testjson.pl view on Meta::CPAN
use autodie qw(:all);
use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
my $req = HTTP::Request->new(POST => 'https://localhost/cgi-bin/info.pl');
$req->header('content-type' => 'application/json');
$req->content('{ "first": "Nigel", "last": "Horne" }');
my $resp = $ua->request($req);
if($resp->is_success()) {
view release on metacpan or search on metacpan
t/090.14838.t view on Meta::CPAN
BEGIN {
if ( !$Config{d_fork} ) {
plan skip_all => "fork not available on this platform";
}
eval "use HTTP::Request::Common";
plan skip_all => "HTTP::Request::Common not available"
if $@;
plan tests => 1;
}
my $req = HTTP::Request::Common::POST(
'/dummy_location',
Content_Type => 'form-data',
Content => [ test_file => ["t/090.14838.t"], ]
);
view release on metacpan or search on metacpan
lib/CGI/Untaint/Facebook.pm view on Meta::CPAN
return 0;
}
$url = $value;
}
my $request = HTTP::Request->new('HEAD' => $url);
$request->header('Accept' => 'text/html');
if($ENV{'HTTP_ACCEPT_LANGUAGE'}) {
$request->header('Accept-Language' => $ENV{'HTTP_ACCEPT_LANGUAGE'});
}
my $browser = LWP::UserAgent->new();
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
data/tiddlers.json view on Meta::CPAN
"modified": "20250728223140626",
"created": "20240706052320581"
},
{
"created": "20240717002307158",
"text": "\"\"\"\no Author:\n- Ron Savage\n- Melbourne, Victoria, Australia\n- http://savage.net.au. Has links to various wikis\n- https://metacpan.org/author/RSAVAGE\n\no V 1.44:\n- 2026-04-06\n- Add CALDAV, ECDLP, iCalandar, IDN, LCCN, LCSAJ...
"title": "ChangeLog",
"modified": "20260406012402824"
},
{
"created": "20210729071550324",
data/tiddlers.json view on Meta::CPAN
"title": "HTMLHandling",
"modified": "20260329105724122",
"created": "20200930063306239"
},
{
"text": "\"\"\"\no See also:\n- BrowserStuff\n- ChildProcesses\n- DnsStuff\n- EventStuff\n- FileHandling\n- HashHandling\n- [[HTMLHandling]]\n- [[HTTPServers]]\n- LoggingStuff\n- ParallelProcessing\n- PlackServer\n- RfcGuide\n- RestfulInterfa...
"title": "HTTPHandling",
"modified": "20260326221011652",
"created": "20210922020640121"
},
{
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
}
},
"runtime" : {
"requires" : {
"ExtUtils::MakeMaker" : "5.4302",
"HTTP::Request" : "0",
"LWP::UserAgent" : "0"
}
}
},
"release_status" : "stable",
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
lib/CPAN/Audit/DB.pm view on Meta::CPAN
use warnings;
our $VERSION = '20260419.002';
sub db {
{"dists" => {"ActivePerl" => {"advisories" => [{"affected_versions" => ["==5.16.1.1601"],"cves" => ["CVE-2012-5377"],"description" => "Untrusted search path vulnerability in the installation functionality in ActivePerl 5.16.1.1601, when installed in...
}
__PACKAGE__;
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