App-livehttperf

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

  ],
  "dist_name" => "App-livehttperf",
  "dist_version" => "0.03",
  "license" => "perl",
  "module_name" => "App::livehttperf",
  "recommends" => {},
  "recursive_test_files" => 1,
  "requires" => {
    "Excel::Writer::XLSX" => 0,
    "Getopt::Long" => 0,
    "HTTP::Request" => 0,
    "HTTP::Response" => 0,
    "LWP::UserAgent" => 0,
    "List::Util" => 0,
    "Number::Bytes::Human" => 0,
    "Parallel::ForkManager" => 0,
    "Statistics::Descriptive" => 0,
    "Text::TabularDisplay" => 0,
    "Time::Elapsed" => 0,
    "Time::HiRes" => 0,
    "strict" => 0,

META.json  view on Meta::CPAN

      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "6.30",
            "Module::Build" : "0.3601"
         }
      },
      "runtime" : {
         "requires" : {
            "Excel::Writer::XLSX" : "0",
            "Getopt::Long" : "0",
            "HTTP::Request" : "0",
            "HTTP::Response" : "0",
            "LWP::UserAgent" : "0",
            "List::Util" : "0",
            "Number::Bytes::Human" : "0",
            "Parallel::ForkManager" : "0",
            "Statistics::Descriptive" : "0",
            "Text::TabularDisplay" : "0",
            "Time::Elapsed" : "0",
            "Time::HiRes" : "0",
            "strict" : "0",

META.yml  view on Meta::CPAN

dynamic_config: 0
generated_by: 'Dist::Zilla version 4.300016, CPAN::Meta::Converter version 2.120921'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: App-livehttperf
requires:
  Excel::Writer::XLSX: 0
  Getopt::Long: 0
  HTTP::Request: 0
  HTTP::Response: 0
  LWP::UserAgent: 0
  List::Util: 0
  Number::Bytes::Human: 0
  Parallel::ForkManager: 0
  Statistics::Descriptive: 0
  Text::TabularDisplay: 0
  Time::Elapsed: 0
  Time::HiRes: 0
  strict: 0

Makefile.PL  view on Meta::CPAN

  },
  "DISTNAME" => "App-livehttperf",
  "EXE_FILES" => [
    "bin/livehttperf"
  ],
  "LICENSE" => "perl",
  "NAME" => "App::livehttperf",
  "PREREQ_PM" => {
    "Excel::Writer::XLSX" => 0,
    "Getopt::Long" => 0,
    "HTTP::Request" => 0,
    "HTTP::Response" => 0,
    "LWP::UserAgent" => 0,
    "List::Util" => 0,
    "Number::Bytes::Human" => 0,
    "Parallel::ForkManager" => 0,
    "Statistics::Descriptive" => 0,
    "Text::TabularDisplay" => 0,
    "Time::Elapsed" => 0,
    "Time::HiRes" => 0,
    "strict" => 0,

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

  $App::livehttperf::AUTHORITY = 'cpan:AJGB';
}
{
  $App::livehttperf::VERSION = '0.03';
}
# 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 );
use Text::TabularDisplay;
use Statistics::Descriptive;
use Number::Bytes::Human qw( format_bytes );
use Time::Elapsed qw( -compile elapsed );
use List::Util qw( sum );

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

                        $cl = int($1);
                    }
                    $req_hdrs .= $l;
                }
                $req_hdrs =~ s/\r?\n\z//;
                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 );
                }

                $req->uri( $url );
                if ( $OPTS{hostname} ) {
                    if ( $req->header('Host') ) {