view release on metacpan or search on metacpan
lib/App/Dochazka/REST/Test.pm view on Meta::CPAN
use App::Dochazka::REST::Model::Privhistory qw( get_privhistory );
use App::Dochazka::REST::Model::Schedhistory qw( get_schedhistory );
use App::Dochazka::REST::Model::Shared qw( cud_generic noof select_single );
use Authen::Passphrase::SaltedDigest;
use Data::Dumper;
use HTTP::Request::Common qw( GET PUT POST DELETE );
use JSON;
use Params::Validate qw( :all );
use Test::JSON;
use Test::More;
use Try::Tiny;
lib/App/Dochazka/REST/Test.pm view on Meta::CPAN
=cut
# faux context
our $faux_context;
# dispatch table with references to HTTP::Request::Common functions
my %methods = (
GET => \&GET,
PUT => \&PUT,
POST => \&POST,
DELETE => \&DELETE,
view release on metacpan or search on metacpan
lib/App/Docker/Client.pm view on Meta::CPAN
return $req;
}
=head2 _http_request
create HTTP::Request by uri params
=cut
sub _http_request {
my ( $self, $path, $query ) = @_;
require HTTP::Request;
return HTTP::Request->new( POST => $self->uri( $path, %$query ) );
}
=head2 _hande_response
=cut
view release on metacpan or search on metacpan
lib/App/DuckPAN.pm view on Meta::CPAN
use MooX::Cmd;
use MooX::Options;
use App::DuckPAN::Config;
use File::Which;
use Class::Load ':all';
use HTTP::Request::Common qw( GET POST );
use HTTP::Status;
use List::Util qw( first max );
use LWP::UserAgent;
use LWP::Simple;
use Parse::CPAN::Packages::Fast;
view release on metacpan or search on metacpan
lib/App/ElasticSearch/Utilities/HTTPRequest.pm view on Meta::CPAN
our $VERSION = '8.8'; # VERSION
use JSON::MaybeXS;
use Ref::Util qw(is_ref is_arrayref is_hashref);
use parent 'HTTP::Request';
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
$self->header('Accept' => 'application/json');
lib/App/ElasticSearch/Utilities/HTTPRequest.pm view on Meta::CPAN
version 8.8
=head1 SYNOPSIS
This subclasses HTTP::Request and handles the B<content()> method invocation
to allow passing content as expected by the Elasticsearch API. You should not
use this module in your code.
=head1 AUTHOR
view release on metacpan or search on metacpan
lib/App/Foca/Server.pm view on Meta::CPAN
return $self->build_response(HTTP_OK, $body);
}
=head2 B<prepare_foca_response($connection, $request)>
Prepares a response (L<HTTP::Response>) for a given foca request (L<HTTP::Request>).
=cut
sub prepare_foca_response {
my ($self, $connection, $request) = @_;
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
Digest::MD5 0
ExtUtils::MakeMaker 6.78
File::Basename 0
File::Spec 0
Getopt::Long::Descriptive 0.084
HTTP::Request::Common 0
HTTP::Status 0
LWP::Protocol::https 1
LWP::UserAgent 0
Term::ReadKey 0
perl 5.012000
cpanfile.snapshot view on Meta::CPAN
requirements:
Carp 0
ExtUtils::MakeMaker 0
HTTP::Date 6
HTTP::Headers::Util 6
HTTP::Request 0
locale 0
perl 5.008001
strict 0
HTTP-Date-6.06
pathname: O/OA/OALDERS/HTTP-Date-6.06.tar.gz
cpanfile.snapshot view on Meta::CPAN
HTTP::Headers 6.45
HTTP::Headers::Auth 6.45
HTTP::Headers::ETag 6.45
HTTP::Headers::Util 6.45
HTTP::Message 6.45
HTTP::Request 6.45
HTTP::Request::Common 6.45
HTTP::Response 6.45
HTTP::Status 6.45
requirements:
Carp 0
Clone 0.46
cpanfile.snapshot view on Meta::CPAN
HTML::Entities 0
HTML::HeadParser 3.71
HTTP::Cookies 6
HTTP::Date 6
HTTP::Negotiate 6
HTTP::Request 6.18
HTTP::Request::Common 6.18
HTTP::Response 6.18
HTTP::Status 6.18
IO::Select 0
IO::Socket 0
LWP::MediaTypes 6
view release on metacpan or search on metacpan
lib/App/GitHooks/Plugin/NotifyReleasesToSlack.pm view on Meta::CPAN
channel => $channel,
}
);
# Prepare request.
my $request = HTTP::Request->new(
POST => $config->get( 'NotifyReleasesToSlack', 'slack_post_url' ),
);
$request->content( $request_payload );
# Send request to Slack.
view release on metacpan or search on metacpan
examples/DelayRequest.pm view on Meta::CPAN
use strict;
use warnings;
package DelayRequest;
use base 'Net::IMP::HTTP::Request';
use fields qw(delayed);
use Net::IMP;
use Net::IMP::HTTP;
use Net::IMP::Debug;
view release on metacpan or search on metacpan
lib/App/HistHub.pm view on Meta::CPAN
Wheel::FollowTail
Component::Client::HTTPDeferred
/;
use JSON::XS ();
use HTTP::Request::Common;
use Fcntl ':flock';
has hist_file => (
is => 'rw',
isa => 'Str',
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
HTTP::Daemon 6.01
HTTP::Daemon::ClientConn 6.01
requirements:
ExtUtils::MakeMaker 0
HTTP::Date 6
HTTP::Request 6
HTTP::Response 6
HTTP::Status 6
IO::Socket 0
LWP::MediaTypes 6
Sys::Hostname 0
cpanfile.snapshot view on Meta::CPAN
HTTP::Headers 6.05
HTTP::Headers::Auth 6.00
HTTP::Headers::ETag 6.00
HTTP::Headers::Util 6.03
HTTP::Message 6.06
HTTP::Request 6.00
HTTP::Request::Common 6.04
HTTP::Response 6.04
HTTP::Status 6.03
requirements:
Compress::Raw::Zlib 0
Encode 2.21
cpanfile.snapshot view on Meta::CPAN
HTML::HeadParser 0
HTTP::Cookies 6
HTTP::Daemon 6
HTTP::Date 6
HTTP::Negotiate 6
HTTP::Request 6
HTTP::Request::Common 6
HTTP::Response 6
HTTP::Status 6
IO::Select 0
IO::Socket 0
LWP::MediaTypes 6
view release on metacpan or search on metacpan
use Data::Kramerius;
use English;
use Error::Pure qw(err);
use File::Spec::Functions qw(catfile);
use Getopt::Std;
use HTTP::Request;
use IO::Barf qw(barf);
use JSON::XS;
use LWP::UserAgent;
use METS::Files;
use Perl6::Slurp qw(slurp);
# Get METS.
if ($self->{'_opts'}->{'v'}) {
print "Downloads $mets_uri\n";
}
my $req = HTTP::Request->new('GET' => $mets_uri);
my $res = $self->{'lwp_user_agent'}->request($req);
my $mets;
if ($res->is_success) {
$mets = $res->content;
# URI for children JSON.
my $json_uri = $self->{'_kramerius_obj'}->url.'search/api/v5.0/item/uuid:'.
$object_id.'/children';
# Get JSON.
my $req = HTTP::Request->new('GET' => $json_uri);
my $res = $self->{'lwp_user_agent'}->request($req);
my $json;
if ($res->is_success) {
$json = $res->content;
barf(catfile($dir_to_store_files, $object_id.'.json'), $json);
L<Class::Utils>,
L<Data::Kramerius>,
L<English>,
L<Error::Pure>,
L<Getopt::Std>,
L<HTTP::Request>,
L<IO::Barf>,
L<JSON::XS>,
L<LWP::UserAgent>,
L<METS::Files>,
L<Perl6::Slurp>.
view release on metacpan or search on metacpan
lib/App/LWPUtils.pm view on Meta::CPAN
use Perinci::Sub::Util qw(gen_modified_sub);
our %SPEC;
sub _lwputil_request {
require HTTP::Request;
my ($class, %args) = @_;
(my $class_pm = "$class.pm") =~ s!::!/!g;
require $class_pm;
lib/App/LWPUtils.pm view on Meta::CPAN
my $method = $args{method} // 'GET';
for my $i (0 .. $#{ $args{urls} }) {
my $url = $args{urls}[$i];
my $is_last_url = $i == $#{ $args{urls} };
my $req = HTTP::Request->new($method => $url);
if (defined $args{headers}) {
for (keys %{ $args{headers} }) {
$req->header($_ => $args{headers}{$_});
}
view release on metacpan or search on metacpan
lib/App/MBUtiny/Storage/HTTP.pm view on Meta::CPAN
my %args = @_;
my $file = $args{file} || ''; # File for uploading! /path/to/file.tar.gz
my $name = $args{name} || basename($file); # File name! file.tar.gz
my $path = $args{path} ? sprintf("%s/%s", $args{path}, $name) : $name; # Path for request: /foo/bar
$self->request(PUT => $self->_merge_path_query($path), sub {
my $req = shift; # HTTP::Request object
$req->header('Content-Type', CONTENT_TYPE);
if (-e $file and -f $file) {
my $size = (-s $file) || 0;
return 0 unless $size;
#my $sizef = $size;
view release on metacpan or search on metacpan
lib/App/MFILE/WWW/Resource.pm view on Meta::CPAN
use App::CELL qw( $CELL $log $meta $site );
use Data::Dumper;
use Encode qw( decode_utf8 encode_utf8 );
use File::Temp qw( tempfile );
use HTTP::Request::Common qw( GET PUT POST DELETE );
use JSON;
use LWP::UserAgent;
use Params::Validate qw(:all);
use Try::Tiny;
view release on metacpan or search on metacpan
lib/App/MFILE/HTTP.pm view on Meta::CPAN
use App::CELL qw( $CELL $log $site $meta );
use Data::Dumper;
use Encode qw( encode_utf8 );
use Exporter qw( import );
use HTTP::Request::Common qw( GET PUT POST DELETE );
use JSON;
use LWP::UserAgent;
use Params::Validate qw( :all );
use Try::Tiny;
view release on metacpan or search on metacpan
lib/App/MatrixTool/HTTPClient.pm view on Meta::CPAN
{
my $self = shift;
return $self->{ua} ||= do {
require IO::Async::SSL;
require Net::Async::HTTP;
require HTTP::Request;
my $ua = Net::Async::HTTP->new(
SSL_verify_mode => 0,
fail_on_error => 1, # turn 4xx/5xx errors into Future failures
);
lib/App/MatrixTool/HTTPClient.pm view on Meta::CPAN
my $uri = URI->new;
$uri->path( $params{path} );
$uri->query_form( %{ $params{params} } ) if $params{params};
my $ua = $self->ua;
my $req = $params{request} // HTTP::Request->new( $params{method} => $uri,
[ Host => $params{server} ],
);
$req->protocol( "HTTP/1.1" );
if( defined $params{content} ) {
view release on metacpan or search on metacpan
t/005_submit_route.t view on Meta::CPAN
use App::Mimosa::Test;
use App::Mimosa::Util qw/clean_up_indices/;
use Test::DBIx::Class;
use File::Slurp qw/slurp/;
use HTTP::Request::Common;
use File::Spec::Functions;
#use Carp::Always;
fixtures_ok 'basic_ss';
view release on metacpan or search on metacpan
lib/App/MonM/Checkit/HTTP.pm view on Meta::CPAN
use Encode;
use CTK::ConfGenUtil;
use URI;
use LWP::UserAgent();
use HTTP::Request();
use App::MonM::Const qw/PROJECTNAME/;
use App::MonM::Util qw/set2attr getTimeOffset/;
use constant {
lib/App/MonM/Checkit/HTTP.pm view on Meta::CPAN
# Proxy
$ua->proxy(['http', 'https'], $proxy) if $proxy;
# Prepare request data
my $request = HTTP::Request->new(uc($method) => $uri);
if ($method =~ /PUT|POST|PATCH/) {
Encode::_utf8_on($content);
$request->header('Content-Length' => length(Encode::encode("utf8", $content)));
$request->content(Encode::encode("utf8", $content));
}
view release on metacpan or search on metacpan
lib/App/MtAws/GlacierRequest.pm view on Meta::CPAN
use utf8;
use POSIX;
use LWP 5.803;
use LWP::UserAgent;
use URI::Escape;
use HTTP::Request;
use Digest::SHA qw/hmac_sha256 hmac_sha256_hex sha256_hex/;
use App::MtAws::MetaData;
use App::MtAws::Utils;
use App::MtAws::Exceptions;
use App::MtAws::HttpSegmentWriter;
lib/App/MtAws/GlacierRequest.pm view on Meta::CPAN
$ua->ssl_opts( verify_hostname => 1, SSL_verify_mode=>1);
}
}
$url .= "?$self->{params_s}" if $self->{params_s};
if ($self->{method} eq 'PUT') {
$req = HTTP::Request->new(PUT => $url, undef, $self->{dataref});
} elsif ($self->{method} eq 'POST') {
if ($self->{dataref}) {
$req = HTTP::Request->new(POST => $url, [Content_Type => 'form-data'], ${$self->{dataref}});
} else {
$req = HTTP::Request->new(POST => $url );
}
} elsif ($self->{method} eq 'DELETE') {
$req = HTTP::Request->new(DELETE => $url);
} elsif ($self->{method} eq 'GET') {
$req = HTTP::Request->new(GET => $url);
} else {
confess;
}
for ( @{$self->{headers}}, @{$self->{req_headers}} ) {
$req->header( $_->{name}, $_->{value} );
view release on metacpan or search on metacpan
lib/App/MultiModule/Tasks/HTTPClient.pm view on Meta::CPAN
$App::MultiModule::Tasks::HTTPClient::VERSION = '1.161230';
use 5.006;
use strict;
use warnings FATAL => 'all';
use POE qw(Component::Client::HTTP);
use HTTP::Request;
use Modern::Perl;
use Data::Dumper;
use Storable;
use parent 'App::MultiModule::Task';
lib/App/MultiModule/Tasks/HTTPClient.pm view on Meta::CPAN
_start => sub {
POE::Kernel->post(
$url, # posts to the 'ua' alias
'request', # posts to ua's 'request' state
'response', # which of our states will receive the response
HTTP::Request->new(GET => $message->{http_url}),# an HTTP::Request object
);
},
_stop => sub {},
response => $response_handler,
},
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
ExtUtils::MakeMaker 0
File::Basename 0
File::HomeDir 0
File::Spec 0
Getopt::Long::Descriptive 0.084
HTTP::Request::Common 0
HTTP::Status 0
LWP::Protocol::https 1
LWP::UserAgent 0
Term::ReadKey 0
strict 0
cpanfile.snapshot view on Meta::CPAN
HTTP::Daemon 6.01
HTTP::Daemon::ClientConn 6.01
requirements:
ExtUtils::MakeMaker 0
HTTP::Date 6
HTTP::Request 6
HTTP::Response 6
HTTP::Status 6
IO::Socket 0
LWP::MediaTypes 6
Sys::Hostname 0
cpanfile.snapshot view on Meta::CPAN
HTTP::Headers 6.11
HTTP::Headers::Auth 6.11
HTTP::Headers::ETag 6.11
HTTP::Headers::Util 6.11
HTTP::Message 6.11
HTTP::Request 6.11
HTTP::Request::Common 6.11
HTTP::Response 6.11
HTTP::Status 6.11
requirements:
Compress::Raw::Zlib 0
Encode 2.21
cpanfile.snapshot view on Meta::CPAN
HTML::HeadParser 0
HTTP::Cookies 6
HTTP::Daemon 6
HTTP::Date 6
HTTP::Negotiate 6
HTTP::Request 6
HTTP::Request::Common 6
HTTP::Response 6
HTTP::Status 6
IO::Select 0
IO::Socket 0
LWP::MediaTypes 6
view release on metacpan or search on metacpan
recommends "CGI::Deurl::XS" => "0";
recommends "HTTP::Parser::XS" => "0";
on "test" => sub {
requires "Test::More" => "0";
requires "HTTP::Request::Common" => "0";
};
view release on metacpan or search on metacpan
lib/App/Navegante/CGI.pm view on Meta::CPAN
my $skeleton=<<'END_SKEL';
#!/usr/bin/perl
use LWP::UserAgent qw(!head);
require HTTP::Request;
use URI::URL qw(!url);
use CGI qw/:standard/;
use XML::DT 0.51;
my %estado = cookie('navcookie');
lib/App/Navegante/CGI.pm view on Meta::CPAN
$Navegante->{end}()
}
else {
$U=_fixurl(param('x'));
my $ua = LWP::UserAgent->new();
my $request = HTTP::Request->new(GET => _fixurl(param('x')));
my $resp = $ua->request($request);
$URL = "". $resp->base(); ## the real URL extracted
$MES = $resp->message(); ## OK if no error
$CON = $resp->content; ## the page content
$cty = $resp->content_type; ## the content type
view release on metacpan or search on metacpan
bin/noodlepay.pl view on Meta::CPAN
use warnings;
use Wx qw (:everything);
use Wx::Event qw (EVT_BUTTON);
use LWP::UserAgent;
use HTTP::Request;
use GD::Barcode::QRcode;
use Math::Prime::Util qw(fromdigits todigitstring);
use vars qw( $VERSION $AUTOLOAD );
my $electrum = 'electrum';
bin/noodlepay.pl view on Meta::CPAN
$ProgressDialog->Update(1,"Creating transaction...");
my $tx = `$electrum payto $sendto $amount -f 0 -u`;
$ProgressDialog->Update(2,"Looking up fees...");
$tx =~ /"hex": "(\S+)"/s; my $txsize = length($1)/2 + 65;
my $ua = new LWP::UserAgent; $ua->agent('Mozilla/5.0');
my $req = HTTP::Request->new(GET => 'https://bitcoinfees.earn.com/api/v1/fees/recommended');
my $res = $ua->request($req);
my $fees = $res->content; $fees =~ s/\{\s*(.*)\s*\}/$1/; $fees =~ s/\"//g;
my %fees = split /[:,]\s*/, $fees;
my $fastest_fee = $fees{fastestFee} * $txsize;
my $halfhour_fee = $fees{halfHourFee} * $txsize;
view release on metacpan or search on metacpan
lib/App/Nopaste/Service/Gist.pm view on Meta::CPAN
Content => $content,
Content_Type => 'application/json',
);
}
else {
use_module('HTTP::Request::Common');
my $req = HTTP::Request::Common::POST($url, Content => $content);
$req->authorization_basic(@auth{qw/username password/});
$ua->request($req);
}
};
lib/App/Nopaste/Service/Gist.pm view on Meta::CPAN
note_url => "https://metacpan.org/module/App::Nopaste",
};
my $ua = LWP::UserAgent->new;
my $request = HTTP::Request->new(POST => 'https://api.github.com/authorizations');
$request->authorization_basic($username, $password);
$request->content(encode_json($parameters));
my $response = $ua->request($request);
view release on metacpan or search on metacpan
"bin/app.pl",
"bin/app.psgi"
],
"test_requires" => {
"File::Spec" => 0,
"HTTP::Request::Common" => 0,
"IO::Handle" => 0,
"IPC::Open3" => 0,
"Plack::Test" => 0,
"Test::More" => "0.88"
}
);
my %fallback_build_requires = (
"File::Spec" => 0,
"HTTP::Request::Common" => 0,
"IO::Handle" => 0,
"IPC::Open3" => 0,
"Module::Build" => "0.28",
"Plack::Test" => 0,
"Test::More" => "0.88"
view release on metacpan or search on metacpan
lib/App/PM/Announce/Feed.pm view on Meta::CPAN
use strict;
use Moose;
use WWW::Mechanize;
use HTTP::Request::Common qw/GET POST/;
use HTML::TreeBuilder;
my @feeds = qw/meetup linkedin greymatter useperl/;
has app => qw/is ro isa App::PM::Announce required 1/, handles => [qw/ logger /];
view release on metacpan or search on metacpan
lib/App/Padadoy.pm view on Meta::CPAN
use Plack::Handler::Starman qw();
use Carton qw(0.9.4);
# required for testing
use Plack::Test qw();
use HTTP::Request::Common qw();
our @commands = qw(init start stop restart config status create checkout
deplist cartontest remote version update enable logs);
our @remote_commands = qw(init start stop restart config status version); # TODO: create deplist checkout cartontest
our @configs = qw(user base repository port pidfile quiet remote);
view release on metacpan or search on metacpan
t/03-create.t view on Meta::CPAN
use Test::Output qw(output_from);
use IO::Socket::INET;
use App::Pastebin::sprunge;
BEGIN {
$^W = 0; # Disable warnings because HTTP::Request::Common warns spuriously
*STDIN = *DATA; # Fake out the library being tested - how sneaky!
@ARGV = ();
}
use warnings;
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();