LWP-UserAgent-ProgressBar

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      }
   },
   "requires" : {
      "Scalar::Util" : "0",
      "English" : "0",
      "File::Spec" : "0",
      "Term::ProgressBar" : "0",
      "Carp" : "0",
      "perl" : "5.008",
      "Test::More" : "0.88",
      "Test::Differences" : "0",
      "LWP::UserAgent" : "0",
      "File::Find" : "0",
      "File::Temp" : "0",
      "Cwd" : "0"
   },
   "abstract" : "An LWP user agent that can display a progress bar",
   "configure_requires" : {
      "ExtUtils::MakeMaker" : "6.11"
   }
}

META.yml  view on Meta::CPAN

requires:
  Carp: 0
  Cwd: 0
  English: 0
  File::Find: 0
  File::Spec: 0
  File::Temp: 0
  LWP::UserAgent: 0
  Scalar::Util: 0
  Term::ProgressBar: 0
  Test::Differences: 0
  Test::More: 0.88
  perl: 5.008
resources:
  bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=LWP-UserAgent-ProgressBar
  homepage: http://search.cpan.org/dist/LWP-UserAgent-ProgressBar/
  repository: http://github.com/hanekomu/LWP-UserAgent-ProgressBar
version: 1.100810

Makefile.PL  view on Meta::CPAN

                       'ABSTRACT' => 'An LWP user agent that can display a progress bar',
                       'EXE_FILES' => [],
                       'VERSION' => '1.100810',
                       'PREREQ_PM' => {
                                        'Scalar::Util' => '0',
                                        'English' => '0',
                                        'File::Spec' => '0',
                                        'Term::ProgressBar' => '0',
                                        'Carp' => '0',
                                        'Test::More' => '0.88',
                                        'Test::Differences' => '0',
                                        'LWP::UserAgent' => '0',
                                        'File::Find' => '0',
                                        'File::Temp' => '0',
                                        'Cwd' => '0'
                                      },
                       'LICENSE' => 'perl'
                     );


delete $WriteMakefileArgs{LICENSE}

t/01_misc.t  view on Meta::CPAN

#!/usr/bin/env perl
use warnings;
use strict;
use Cwd 'abs_path';
use File::Spec;
use LWP::UserAgent::ProgressBar;
use Test::More tests => 4;
use Test::Differences;

# get
{
    my $self_path = $0;
       $self_path = abs_path($self_path)
            unless File::Spec->file_name_is_absolute($self_path);
    my $self_content = do { local (@ARGV, $/) = $self_path; <> };
    my $self_url = "file://$self_path";
    my $response =
    LWP::UserAgent::ProgressBar->new->get_with_progress($self_url,