HTTP::Request results from the CPAN

t/200-route_load_front_page.t view on Meta::CPAN


use Test::More;
use FindBin;
use lib "$FindBin::Bin/../lib";

use HTTP::Request::Common;
use Plack::Test;
use App::RPi::EnvUI;

my $test = Plack::Test->create(App::RPi::EnvUI->to_app);

view all matches for this distribution

App-RecordStream

5 results

lib/App/RecordStream/Operation/fromatomfeed.pm view on Meta::CPAN

{
  my ($this) = @_;

  my $ua = $this->make_user_agent();

  my $request = HTTP::Request->new();
  $request->method('GET');

  my $twig_roots = { '/*/entry' => sub { $this->handle_entry_elem( @_ ) } };

  if ( $this->{'FOLLOW'} ) {

view all matches for this distribution

App-RetroPAN

7 results

lib/App/RetroPAN.pm view on Meta::CPAN


Dave Lambley <dlambley@cpan.org>

=cut

use HTTP::Request;
use LWP::UserAgent;
use List::MoreUtils qw/ uniq /;
use Module::CoreList;
use OrePAN2::Injector;
use OrePAN2::Indexer;

lib/App/RetroPAN.pm view on Meta::CPAN

                ],
            }
        }
    };

    my $req = HTTP::Request->new( POST => 'https://fastapi.metacpan.org/v1/release/_search', [
        "Content-Type" => "text/json",
        "Accept" => "text/json"
    ], encode_json($q) );

    my $res = $ua->request($req);

lib/App/RetroPAN.pm view on Meta::CPAN

                ],
            }
        }
    };

    my $req = HTTP::Request->new( POST => 'https://fastapi.metacpan.org/v1/module/_search', [
        "Content-Type" => "text/json",
        "Accept" => "text/json"
    ], encode_json($q) );

    my $res = $ua->request($req);

view all matches for this distribution

App-RoboBot

8 results

lib/App/RoboBot/Plugin/API/Github.pm view on Meta::CPAN

use Moose;
use MooseX::SetOnce;

use AnyEvent;
use Data::Dumper;
use HTTP::Request;
use JSON;
use LWP::UserAgent;
use URI;

use App::RoboBot::Channel;

lib/App/RoboBot/Plugin/API/Github.pm view on Meta::CPAN


    if (defined $args && ref($args) eq 'HASH' && scalar(keys(%{$args})) > 0) {
        $uri->query_form($args);
    }

    my $req = HTTP::Request->new( GET => $uri->as_string );

    if (exists $self->bot->config->plugins->{'github'}{'user'} && exists $self->bot->config->plugins->{'github'}{'token'}) {
        $req->authorization_basic(
            $self->bot->config->plugins->{'github'}{'user'},
            $self->bot->config->plugins->{'github'}{'token'}

view all matches for this distribution

App-SD

1 match

tools/shipwright-package view on Meta::CPAN

export REPO=${HOME}/shipwright-sd-${TODAY}.git/
#export REPO=/tmp/shipwright-sd-${TODAY}.git/

export SHIPWRIGHT_REPOSITORY="git:file://$REPO"
export MIN_PERL=5.008006
export SKIP="--skip=Pod::Simple,Module::Signature,Test::Pod,Test::Most,Quantum::SuperPositions,Test::Pod::Coverage,Test::Distribution,Pod::Readme,Archive::Tar,HTML::Lint,Prophet,Encode,Date::Calc,Test::Cukes,Quantum::Superpositions,Test::Memory::Cycl...
export IMPORT="shipwright import --min-perl-version=$MIN_PERL $SKIP --log-file - --log-level debug"
rm -rf $REPO

shipwright create 
# Optional deps we still want

view all matches for this distribution

App-Slaughter

1 match

lib/Slaughter/Transport/http.pm view on Meta::CPAN

    $ua->env_proxy();

    #
    #  Make a request, do it in this fashion so we can use Basic-Auth if we need to.
    #
    my $req = HTTP::Request->new( GET => $url );
    if ( $self->{ 'username' } && $self->{ 'password' } )
    {
        $req->authorization_basic( $self->{ 'username' },
                                   $self->{ 'password' } );
    }

view all matches for this distribution

App-SocialCalc-Multiplayer

1 match

socialcalc/simpleedit15.pl view on Meta::CPAN

      my $func = $argvals[1];
      if ($func eq "regexget") {
         my $ua = LWP::UserAgent->new; 
         $ua->agent("WKCcallableUtilities");
         $ua->timeout(5);
         my $req = HTTP::Request->new("GET", $argvals[2]);
         $req->header('Accept' => '*/*');
         my $res = $ua->request($req);
         if ($res->is_success) {
             my $returnedhtml = $res->content;
             if ($argvals[3] && $returnedhtml =~ m/$argvals[3]/s) {

view all matches for this distribution

App-SpamcupNG

7 results

package App::SpamcupNG::UserAgent;
use warnings;
use strict;
use Carp qw(confess);
use LWP::UserAgent 6.72;
use HTTP::Request 6.44;
use Log::Log4perl 1.57 qw(get_logger :levels);
use HTTP::CookieJar::LWP 0.014;
use Mozilla::PublicSuffix v1.0.6;
use HTTP::Request::Common 6.44 qw(POST);

our $VERSION = '0.020'; # VERSION

=head1 NAME


Returns the HTTP response (HTML content) as a scalar reference.

=cut

# copied from HTTP::Request::as_string
sub _request_line {
    my $request  = shift;
    my $req_line = $request->method || "-";
    my $uri      = $request->uri;
    $uri = ( defined $uri ) ? $uri->as_string : "-";

        $logger->debug( "Initial cookies:\n" . $self->_dump_cookies );
    }

    if ( $self->_is_authenticated ) {
        $logger->debug('Already authenticated');
        $request = HTTP::Request->new( GET => $self->{domain} );
    }
    else {
        if ($password) {

            if ($is_basic) {
                $request = HTTP::Request->new( GET => $self->{members_url} );
                $request->authorization_basic( $id, $password );
            }
            else {
                $request = POST $self->{form_login_url},
                  [

                  ];
            }
        }
        else {
            $request =
              HTTP::Request->new( GET => $self->{code_login_url} . $id );
        }
    }

    $request->protocol('HTTP/1.1');

=cut

sub spam_report {
    my ( $self, $report_id ) = @_;
    my $logger  = get_logger('SpamcupNG');
    my $request = HTTP::Request->new( GET => $self->{report_url} . $report_id );

    if ( $logger->is_debug ) {
        $logger->debug( "Request to be sent:\n" . $request->as_string );
    }

view all matches for this distribution

App-SpeedTest

1 match

    my $ping    = 0.05;
    my $name    = "";
    my $sponsor = "CLI";
    if ($mini) {
	my $t0  = [ gettimeofday ];
	my $rsp = $ua->request (HTTP::Request->new (GET => $mini));
	$ping   = tv_interval ($t0);
	$rsp->is_success or die $rsp->status_line . "\n";
	my $tree = HTML::TreeBuilder->new ();
	$tree->parse_content ($rsp->content) or die "Cannot parse\n";
	my $ext = "";

	}
    else {
	$name = "Local";
	$url =~ m{/\w+\.\w+$} or $url =~ s{/?$}{/speedtest/upload.php};
	my $t0  = [ gettimeofday ];
	my $rsp = $ua->request (HTTP::Request->new (GET => $url));
	$ping   = tv_interval ($t0);
	$rsp->is_success or die $rsp->status_line . "\n";
	}
    (my $host = $url) =~ s{^\w+://([^/]+)(?:/.*)?}{$1};
    $url = {

	$opt_c = uc $opt_c;
	}
    elsif ($opt_g) {	# Try GeoIP
	$opt_v > 5 and say STDERR "Testing Geo location";
	my $url = "http://www.geoiptool.com";
	my $rsp = $ua->request (HTTP::Request->new (GET => $url));
	if ($rsp->is_success) {
	    my $tree = HTML::TreeBuilder->new ();
	    if ($tree->parse_content ($rsp->content)) {
		foreach my $e ($tree->look_down (_tag => "div", class => "data-item")) {
		    $opt_v > 2 and say STDERR $e->as_text;

	    map { ("$base/random${_}x${_}.jpg") x 4 }
	    350, 500, 750, 1000, 1500, 2000, 2500, 3000, 3500, 4000 ]};
	my @rslt;
	$opt_q and splice @url, $opt_q;
	foreach my $url (@url) {
	    my $req = HTTP::Request->new (GET => $url);
	    my $t0 = [ gettimeofday ];
	    my $rsp = $ua->request ($req);
	    my $elapsed = tv_interval ($t0);
	    unless ($rsp->is_success) {
		warn "$url: ", $rsp->status_line, "\n";

	my @size = map { $_ * 1000 }
	  # ((256) x 10, (512) x 10, (1024) x 10, (4096) x 10);
	    ((256) x 10, (512) x 10, (1024) x 5, (2048) x 5, (4096) x 5, (8192) x 5);
	$opt_q and splice @size, $opt_q;
	foreach my $sz (@size) {
	    my $req = HTTP::Request->new (POST => $url);
	    $req->content (substr $data, 0, $sz);
	    my $t0 = [ gettimeofday ];
	    my $rsp = $ua->request ($req);
	    my $elapsed = tv_interval ($t0);
	    unless ($rsp->is_success) {


### ############################################################################

sub get_config {
    my $url = "http://www.speedtest.net/speedtest-config.php";
    my $rsp = $ua->request (HTTP::Request->new (GET => $url));
    $rsp->is_success or die "Cannot get config: ", $rsp->status_line, "\n";
    my $xml = XMLin ( $rsp->content,
        keeproot        => 1,
        noattr          => 0,
        keyattr         => [ ],

	      http://www.speedtest.net/speedtest-servers-static.php
	      http://www.speedtest.net/speedtest-servers.php
	      http://c.speedtest.net/speedtest-servers.php
	      )) {
	$opt_v > 2 and warn "Fetching $url\n";
	my $rsp = $ua->request (HTTP::Request->new (GET => $url));
	$opt_v > 2 and warn $rsp->status_line, "\n";
	$rsp->is_success and $servlist = $rsp->content and last;
	}
    $servlist or die "Cannot get any config\n";
    my $xml = XMLin ($servlist,

	    $h->{ping} = 999999;
	    next;
	    }
	$opt_v > 5 and printf STDERR "? %4d %-20.20s %s\n",
	    $h->{id}, $h->{sponsor}, $h->{url};
	my $req = HTTP::Request->new (GET => "$h->{url}/latency.txt");
	for (0 .. 3) {
	    my $t0 = [ gettimeofday ];
	    my $rsp = $pa->request ($req);
	    my $elapsed = tv_interval ($t0);
	    $opt_v > 8 and printf STDERR "%4d %9.2f\n", $_, $elapsed;

view all matches for this distribution

App-SpreadRevolutionaryDate

2 results

lib/App/SpreadRevolutionaryDate/BlueskyLite.pm view on Meta::CPAN

      $img_url = $url . $img_url;
    }
    my $img_response = $ua->get($img_url);
    return unless $img_response->is_success;

    my $blob_req = HTTP::Request->new('POST', 'https://bsky.social/xrpc/com.atproto.repo.uploadBlob');
    $blob_req->header('Content-Type' => $img_response->header('Content-Type'));
    $blob_req->content($img_response->content);
    my $blob_response = $self->{ua}->request($blob_req);
    return unless $blob_response->is_success;

lib/App/SpreadRevolutionaryDate/BlueskyLite.pm view on Meta::CPAN

    identifier => $args{'identifier'},
    password   => $args{'password'},
  );
  my $json = encode_json(\%payload);

  my $req = HTTP::Request->new('POST', 'https://bsky.social/xrpc/com.atproto.server.createSession');
  $req->header('Content-Type' => 'application/json');
  $req->content($json);
  my $response = $self{ua}->request($req);

  if ($response->is_success) {

lib/App/SpreadRevolutionaryDate/BlueskyLite.pm view on Meta::CPAN

        local $/;
        $img_bytes = <$fh>;
    }
    close $fh;

    my $blob_req = HTTP::Request->new('POST', 'https://bsky.social/xrpc/com.atproto.repo.uploadBlob');
    $blob_req->header('Content-Type' => $mime_type);
    $blob_req->content($img_bytes);
    my $blob_response = $self->{ua}->request($blob_req);
    return unless $blob_response->is_success;

lib/App/SpreadRevolutionaryDate/BlueskyLite.pm view on Meta::CPAN

  if ($reply) {
      $payload->{record}->{reply} = $reply;
  }

  my $json = encode_json($payload);
  my $req = HTTP::Request->new('POST', 'https://bsky.social/xrpc/com.atproto.repo.createRecord');
  $req->header('Content-Type' => 'application/json');
  $req->content($json);
  my $response = $self->{ua}->request($req);
  if ($response->is_success) {
      return decode_json($response->decoded_content);

view all matches for this distribution

App-Standby

5 results

lib/App/Standby/Service/HTTP.pm view on Meta::CPAN


    my $count = 0;

    foreach my $endpoint (@{$self->endpoints()}) {
        $self->logger()->log( message => "Updating endpoint: ".$endpoint, level => 'debug', );
        my $req = HTTP::Request::->new( POST => $endpoint );
        $req->content_type('application/x-www-form-urlencoded');
        my $payload = $self->_build_payload($user_ref);
        $req->content($payload);
        $self->logger()->log( message => "Payload: ".$payload, level => 'debug', );

view all matches for this distribution

App-Tacochan

1 match

bin/tacochan_client view on Meta::CPAN

use warnings;
use 5.008001;
use App::Tacochan;
use Getopt::Long ();
use LWP::UserAgent;
use HTTP::Request::Common;

my $parser = Getopt::Long::Parser->new(
    config => ['no_ignore_case', 'pass_through'],
);

view all matches for this distribution

App-TemplateServer

3 results

lib/App/TemplateServer.pm view on Meta::CPAN

use Moose::Util::TypeConstraints;
use MooseX::Types::Path::Class qw(File);

use HTTP::Daemon;
use HTTP::Headers;
use HTTP::Request;
use HTTP::Response;

use App::TemplateServer::Types;
use App::TemplateServer::Provider::TT;
use App::TemplateServer::Page::Index;

view all matches for this distribution

App-TimeTracker-Command-TellSlack

1 match

lib/App/TimeTracker/Command/TellSlack.pm view on Meta::CPAN

    my $message
        = $task->user
        . ( $status eq 'start' ? ' is now' : ' stopped' )
        . ' working on '
        . $task->say_project_tags;
    my $request = HTTP::Request->new(POST=>$cfg->{url});

    my $payload = {
        text=>$message
    };
    $payload->{username} = $cfg->{username} if $cfg->{username};

view all matches for this distribution

App-Twitch

1 match

lib/App/Twitch.pm view on Meta::CPAN

	Component::Client::Keepalive
	Component::FeedAggregator
	Component::WWW::Shorten
);

use HTTP::Request;
use Text::Trim;
use URI;
use POSIX;
use IO::All;
use String::Truncate qw(elide);

lib/App/Twitch.pm view on Meta::CPAN

	$self->logger->debug($self->logger_prefix.'{'.$event->{run_id}.'} New feed entry: '.$url);
	POE::Kernel->post(
		$self->_http_alias,
		'request',
		'new_content',
		HTTP::Request->new(GET => $url),
		$event,
	);
};

use Encode;

view all matches for this distribution

App-cloudconvert

4 results

lib/App/cloudconvert.pm view on Meta::CPAN


use 5.008_005;
our $VERSION = '0.01';

use LWP;
use HTTP::Request::Common qw(POST);

sub new {
    my ($class, %config) = @_;
    bless \%config, $class;
}

view all matches for this distribution

App-cpanminus-reporter

2 results

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

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

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

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

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

# 
# === 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 all matches for this distribution

App-cpanminus

2 results

lib/App/cpanminus/fatscript.pm view on Meta::CPAN

                  @_,
              );
          };
          $self->{_backends}{get} = sub {
              my $self = shift;
              my $res = $ua->()->request(HTTP::Request->new(GET => $_[0]));
              return unless $res->is_success;
              return $res->decoded_content;
          };
          $self->{_backends}{mirror} = sub {
              my $self = shift;

lib/App/cpanminus/fatscript.pm view on Meta::CPAN

  
  L<HTTP::Tiny::UA> - Higher level UA features for HTTP::Tiny
  
  =item *
  
  L<HTTP::Thin> - HTTP::Tiny wrapper with L<HTTP::Request>/L<HTTP::Response> compatibility
  
  =item *
  
  L<HTTP::Tiny::Mech> - Wrap L<WWW::Mechanize> instance in HTTP::Tiny compatible interface

view all matches for this distribution

App-cpanoutdated-coro

1 match

script/cpan-outdated-coro view on Meta::CPAN


sub getstore {
    my ( $url, $fname ) = @_;
    my $ua = LWP::UserAgent->new( parse_head => 0, );
    $ua->env_proxy();
    my $request = HTTP::Request->new( GET => $url );
    my $response = $ua->request( $request, $fname );
    if ( my $died = $response->header('X-Died') ) {
        die "Cannot getstore $url to $fname: $died";
    }
    elsif ( $response->code == 200 ) {

view all matches for this distribution

App-cpantimes

1 match

bin/cpant view on Meta::CPAN

                  @_,
              );
          };
          $self->{_backends}{get} = sub {
              my $self = shift;
              my $res = $ua->()->request(HTTP::Request->new(GET => $_[0]));
              return unless $res->is_success;
              return $res->decoded_content;
          };
          $self->{_backends}{mirror} = sub {
              my $self = shift;

view all matches for this distribution

App-cpanurl

1 match

script/cpanurl view on Meta::CPAN

  
  my $res;
  if ($lwp eq 'use' || $lwp eq 'auto' && eval { require LWP::UserAgent; LWP::UserAgent->VERSION(5.802) })
  {
    require LWP::UserAgent;
    require HTTP::Request;
    my $ua = LWP::UserAgent->new(
      parse_head => 0,
      env_proxy => 1,
      agent => "App::cpanurl/$VERSION",
      timeout => 30
    );
    my $r;
    if ($method eq 'post') {
      my $req = HTTP::Request->new('POST', $url);
      $req->header('Content-Type' => 'application/json');
      $req->content($body);
      $r = $ua->request($req);
    }
    else { $r = $ua->get($url) }

view all matches for this distribution

App-geoip

2 results

lib/App/geoip.pm view on Meta::CPAN

	ip	=> "IP",
	city	=> "City",
	company	=> "Provider",
	);
    foreach my $url (qw( https://iplocation.com https://geoiptool.com )) {
	my $rsp = $ua->request (HTTP::Request->new (GET => $url));
	if ($rsp->is_success) {
	    $opt_v > 1 and warn "$url: OK\n";
	    my $tree = HTML::TreeBuilder->new ();
	    if ($tree->parse_content ($rsp->content)) {
		foreach my $e ($tree->look_down (_tag => "div", class => "data-item")) {

view all matches for this distribution

App-get_flash_videos

1 match

utils/combine-head view on Meta::CPAN

# This file includes various perl modules, see their original source for their
# copyright and license terms.

use HTTP::Cookies ();
use HTTP::Config ();
use HTTP::Request::Common ();
use LWP::Protocol::http ();
use XML::Simple ();
use WWW::Mechanize::Link ();

1;

view all matches for this distribution

App-ggdrv

2 results

lib/App/ggdrv/update.pm view on Meta::CPAN

package App::ggdrv::update ; 
use strict ; 
use warnings ;
use feature 'say' ; 
use HTTP::Request::Common ;
use JSON qw[ encode_json ] ;
use LWP::UserAgent ;
use URI::QueryParam ;
use URI ;

view all matches for this distribution

App-gqmt

4 results

lib/App/gqmt.pm view on Meta::CPAN

  caller_message => "DEBUG __FILENAME__:__LINE__ ";
use Getopt::Long  qw(:config no_ignore_case gnu_getopt auto_help auto_version);
use Pod::Man;
use Pod::Usage    qw(pod2usage);
use File::Basename;
use HTTP::Request ();
use LWP::UserAgent;
use JSON;
use Time::Piece;
use Template;

lib/App/gqmt.pm view on Meta::CPAN

  # pod2usage(-exitval => 0, -verbose => 2, -msg => "\nERROR: -v is mandatory when -D and -s are used together\n\n")
  #   if $delete && $single_iteration && ! $v;

  p $self->{_option} if $self->{_option}{d} > 2;

  $self->{_option}{req} = HTTP::Request->new( 'POST',
					      $self->{_option}{url},
					      [ 'Authorization' => 'bearer ' . $self->{_option}{token} ] );

  return $self;
}

view all matches for this distribution

App-instopt

5 results

lib/App/instopt.pm view on Meta::CPAN

    $_ua;
}

# try to resolve redirect
sub _real_url {
    require HTTP::Request;

    my $url = shift;

    my $ua = _ua();
    while (1) {
        my $res = $ua->simple_request(HTTP::Request->new(HEAD => $url));
        if ($res->code =~ /^3/) {
            if ($res->header("Location")) {
                $url = $res->header("Location");
                next;
            } else {

view all matches for this distribution

App-ipchgmon

1 match

lib/App/ipchgmon.pm view on Meta::CPAN

}

sub get_ip {
    my $url = shift;
    my $ua = LWP::UserAgent->new;
    my $req = HTTP::Request->new(GET => $url);
    my $res = $ua->request($req);
    my $csv = $res->content;
    my $aoa = csv(in => \$csv);
    return $$aoa[0][1];
}

view all matches for this distribution

App-livehttperf

5 results

lib/App/livehttperf.pm view on Meta::CPAN

# ABSTRACT: Real life web performance testing tool

use strict;
use warnings;

use HTTP::Request;
use HTTP::Response;
use LWP::UserAgent;
use Parallel::ForkManager;
use Getopt::Long;
use Time::HiRes qw( gettimeofday tv_interval );

lib/App/livehttperf.pm view on Meta::CPAN

                my $post_data;
                if ( $cl ) { # post data requires Content-Length
                    $post_data = substr($req_hdrs, -1 * $cl);
                    $req_hdrs = substr($req_hdrs, 0, -1 * $cl);
                }
                $req = HTTP::Request->parse($req_hdrs);
                if ( defined $post_data ) {
                    unless ( length($post_data) == $req->header('Content-Length')) {
                        die "Content-Length header doesn't match the length of post data:\n$rrb\n$post_data\n",
                    };
                    $req->content( $post_data );

view all matches for this distribution

App-perlimports

4 results