view release on metacpan or  search on metacpan

t/05remote.t  view on Meta::CPAN

  
  close $fh;
  
  # Get file stats
  my @stat = stat $target;
  my $total_size = $stat[7];
  
  return (\$file_contents, $total_size);
};

delete $ENV{HTTP_PROXY} if $ENV{HTTP_PROXY};
delete $ENV{http_proxy} if $ENV{http_proxy};

my $get_server = sub {
  my $httpd = Test::Fake::HTTPD->new();
  $httpd->run(sub {
    my $req = shift;
    my $content = \q{};
    my $total_size = 0;
    my $code = '404';
    my %headers = (