NAME

HTTP::Tiny::Bandwidth - HTTP::Tiny with limitation of download/upload speed

SYNOPSIS

  use HTTP::Tiny::Bandwidth;

  my $http = HTTP::Tiny::Bandwidth->new;

  # limit download speed
  my $res = $http->get("http://www.cpan.org/src/5.0/perl-5.22.0.tar.gz", {
    download_limit_bps => 5 * (1024**2), # limit 5Mbps
  });

  # you can save memory with mirror method
  my $res = $http->mirror(
    "http://www.cpan.org/src/5.0/perl-5.22.0.tar.gz",
    "/path/to/save/perl-5.22.0.tar.gz",
    { download_limit_bps => 5 * (1024**2) }, # limit 5Mbps
  );

  # limit upload speed
  my $res = $http->post("http://example.com", {
    content_file     => "big-file.txt", # or content_fh
    upload_limit_bps => 5 * (1024**2),  # limit 5Mbps
  });

DESCRIPTION

HTTP::Tiny::Bandwidth is a subclass of HTTP::Tiny which can limit download/upload speed.

If you want to use LWP::UserAgent with limitation of download/upload speed, see eg directory.

HOW TO LIMIT DOWNLOAD SPEED

HTTP::Tiny::Bandwidth's request/get/... and mirror methods accepts download_limit_bps option:

  my $http = HTTP::Tiny::Bandwidth->new;

  my $res = $http->get("http://www.cpan.org/src/5.0/perl-5.22.0.tar.gz", {
    download_limit_bps => 5 * (1024**2),
  });

  my $res = $http->mirror(
    "http://www.cpan.org/src/5.0/perl-5.22.0.tar.gz",
    "/path/to/save/perl-5.22.0.tar.gz",
    { download_limit_bps => 5 * (1024**2) },
  );

HOW TO LIMIT UPLOAD SPEED

HTTP::Tiny::Bandwidth's request/post/put/... methods accepts content_file, content_fh, upload_limit_bps options:

  my $http = HTTP::Tiny::Bandwidth->new;

  # content_file
  my $res = $http->post("http://example.com", {
    content_file     => "big-file.txt",
    upload_limit_bps => 5 * (1024**2), # limit 5Mbps
  });

  # or, you can specify content_fh
  open my $fh, "<", "big-file.txt" or die;
  my $res = $http->post("http://example.com", {
    content_fh       => $fh,
    upload_limit_bps => 5 * (1024**2), # limit 5Mbps
  });

SEE ALSO

HTTP::Tiny

COPYRIGHT AND LICENSE

Copyright 2015 Shoichi Kaji

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.