view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  -- Fixeed inifiniate loop bug, fake jobs are now working as intended
1.016
  -- added missing unit tests to the distro
1.017
  -- added can support for HTTP::Multiget::Role
  -- added support for parsing JSON strings as a result
1.018
  -- Fixed pas through argument issue with queue_request
    Now accepts array ref correctly
1.019
  -- Now disables keepalive by default
1.020
  -- Now disables persistent by default
1.021 
  -- Now uses default timeout of AnyEvent::HTTP
1.022
  -- Added AnyEvent timer issue fix for non async calls
1.023
  -- added undef to functions that should go away

lib/HTTP/MultiGet.pm  view on Meta::CPAN

      } else {
        $opt->{params}->{$key}=$value;
      }
    }
    $opt->{cb}=$code;
  } else {
    $req=$obj;
    my $code=$self->que_function($req,$id);
    $opt->{cb}=$code;
  }
  foreach my $key (qw(keepalive persistent)) {
    $opt->{params}->{$key}=0 unless exists $opt->{params}->{$key};
  }
  my $request=$self->SENDER_CLASS->new(
    $req,
    $opt,
  );

  return $request;
}

t/AnyEvent-HTTP-MultiGet.t  view on Meta::CPAN

use AnyEvent::Loop;
BEGIN { $SIG{__DIE__} = sub { confess @_ }; }
use Test::More qw(no_plan);

my $class='AnyEvent::HTTP::MultiGet';
require_ok($class);
use_ok($class);

my $string;
my $logger=LoggerToString($class,$string);
my $self=$class->new(logger=>$logger,request_opts=>{timeout=>10,persistent=>0,cookie_jar=>{},keepalive=>0});
isa_ok($self,$class);

SKIP: { skip 'env valirable RUN_HTTP_TESTS not set', 56 unless $ENV{RUN_HTTP_TESTS};
if(0){
my $count=0;
TEST_LOOP: {
  my $req=HTTP::Request->new(GET=>'https://google.com');
  my @todo=HTTP::Request->new(GET=>'https://yahoo.com');
  push @todo,HTTP::Request->new(GET=>'https://news.com');
  push @todo,HTTP::Request->new(GET=>'https://127.0.0.1:5888');