Commit 5e90b474 authored by David Golden's avatar David Golden

fix repo for new DAGOLDEN dzil bundle

parent 33aa1071
# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.025.
use strict;
use warnings;
use 5.006;
use ExtUtils::MakeMaker 6.17;
my %WriteMakefileArgs = (
"ABSTRACT" => "A small, simple, correct HTTP/1.1 client",
"AUTHOR" => "Christian Hansen <chansen\@cpan.org>, David Golden <dagolden\@cpan.org>",
"CONFIGURE_REQUIRES" => {
"ExtUtils::MakeMaker" => "6.17"
},
"DISTNAME" => "HTTP-Tiny",
"EXE_FILES" => [],
"LICENSE" => "perl",
"MIN_PERL_VERSION" => "5.006",
"NAME" => "HTTP::Tiny",
"PREREQ_PM" => {
"Carp" => 0,
"Fcntl" => 0,
"IO::Socket" => 0,
"MIME::Base64" => 0,
"Time::Local" => 0,
"bytes" => 0,
"strict" => 0,
"warnings" => 0
},
"TEST_REQUIRES" => {
"Data::Dumper" => 0,
"Exporter" => 0,
"ExtUtils::MakeMaker" => 0,
"File::Basename" => 0,
"File::Spec" => 0,
"File::Temp" => 0,
"IO::Dir" => 0,
"IO::File" => 0,
"IO::Socket::INET" => 0,
"IPC::Cmd" => 0,
"Test::More" => "0.96",
"open" => 0
},
"VERSION" => "0.051",
"test" => {
"TESTS" => "t/*.t"
}
);
my %FallbackPrereqs = (
"Carp" => 0,
"Data::Dumper" => 0,
"Exporter" => 0,
"ExtUtils::MakeMaker" => "6.17",
"Fcntl" => 0,
"File::Basename" => 0,
"File::Spec" => 0,
"File::Temp" => 0,
"IO::Dir" => 0,
"IO::File" => 0,
"IO::Socket" => 0,
"IO::Socket::INET" => 0,
"IPC::Cmd" => 0,
"MIME::Base64" => 0,
"Test::More" => "0.96",
"Time::Local" => 0,
"bytes" => 0,
"open" => 0,
"strict" => 0,
"warnings" => 0
);
unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
delete $WriteMakefileArgs{TEST_REQUIRES};
delete $WriteMakefileArgs{BUILD_REQUIRES};
$WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
}
delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
unless eval { ExtUtils::MakeMaker->VERSION(6.52) };
WriteMakefile(%WriteMakefileArgs);
......@@ -5,7 +5,7 @@ license = Perl_5
copyright_holder = Christian Hansen
[@DAGOLDEN]
:version = 0.068
:version = 0.072
stopwords = CA
stopwords = UA
stopwords = proxying
......
......@@ -3,7 +3,8 @@ package HTTP::Tiny;
use strict;
use warnings;
# ABSTRACT: A small, simple, correct HTTP/1.1 client
# VERSION
our $VERSION = '0.051';
use Carp ();
......@@ -471,7 +472,7 @@ my %DefaultPort = (
sub _agent {
my $class = ref($_[0]) || $_[0];
(my $default_agent = $class) =~ s{::}{-}g;
return $default_agent . "/" . ($class->VERSION || 0);
return $default_agent . "/" . $class->VERSION;
}
sub _request {
......
......@@ -11,7 +11,7 @@ use t::Util qw[tmpfile rewind slurp monkey_patch dir_list parse_case
use HTTP::Tiny;
BEGIN { monkey_patch() }
for my $file ( dir_list("t/cases", qr/^get/ ) ) {
for my $file ( dir_list("corpus", qr/^get/ ) ) {
my $label = basename($file);
my $data = do { local (@ARGV,$/) = $file; <> };
my ($params, $expect_req, $give_res) = split /--+\n/, $data;
......
......@@ -10,7 +10,7 @@ use t::Util qw[tmpfile rewind slurp monkey_patch dir_list parse_case
use HTTP::Tiny;
BEGIN { monkey_patch() }
for my $file ( dir_list("t/cases", qr/^head/ ) ) {
for my $file ( dir_list("corpus", qr/^head/ ) ) {
my $data = do { local (@ARGV,$/) = $file; <> };
my ($params, $expect_req, $give_res) = split /--+\n/, $data;
# cleanup source data
......
......@@ -10,7 +10,7 @@ use t::Util qw[tmpfile rewind slurp monkey_patch dir_list parse_case
use HTTP::Tiny;
BEGIN { monkey_patch() }
for my $file ( dir_list("t/cases", qr/^put/ ) ) {
for my $file ( dir_list("corpus", qr/^put/ ) ) {
my $data = do { local (@ARGV,$/) = $file; <> };
my ($params, $expect_req, $give_res) = split /--+\n/, $data;
# cleanup source data
......
......@@ -10,7 +10,7 @@ use t::Util qw[tmpfile rewind slurp monkey_patch dir_list parse_case
use HTTP::Tiny;
BEGIN { monkey_patch() }
for my $file ( dir_list("t/cases", qr/^delete/ ) ) {
for my $file ( dir_list("corpus", qr/^delete/ ) ) {
my $data = do { local (@ARGV,$/) = $file; <> };
my ($params, $expect_req, $give_res) = split /--+\n/, $data;
# cleanup source data
......
......@@ -10,7 +10,7 @@ use t::Util qw[tmpfile rewind slurp monkey_patch dir_list parse_case
use HTTP::Tiny;
BEGIN { monkey_patch() }
for my $file ( dir_list("t/cases", qr/^post/ ) ) {
for my $file ( dir_list("corpus", qr/^post/ ) ) {
my $data = do { local (@ARGV,$/) = $file; <> };
my ($params, $expect_req, $give_res) = split /--+\n/, $data;
# cleanup source data
......
......@@ -24,7 +24,7 @@ my %timestamp = (
'not-modified.txt' => $known_epoch - 2 * $day,
);
for my $file ( dir_list("t/cases", qr/^mirror/ ) ) {
for my $file ( dir_list("corpus", qr/^mirror/ ) ) {
1 while unlink $tempfile;
my $data = do { local (@ARGV,$/) = $file; <> };
my ($params, $expect_req, $give_res) = split /--+\n/, $data;
......
......@@ -12,7 +12,7 @@ use t::Util qw[tmpfile rewind slurp monkey_patch dir_list parse_case
use HTTP::Tiny;
BEGIN { monkey_patch() }
for my $file ( dir_list("t/cases", qr/^redirect/ ) ) {
for my $file ( dir_list("corpus", qr/^redirect/ ) ) {
my $label = basename($file);
my $data = do { local (@ARGV,$/) = $file; <> };
my ($params, @case_pairs) = split /--+\n/, $data;
......
......@@ -11,7 +11,7 @@ use t::Util qw[tmpfile rewind slurp monkey_patch dir_list parse_case
use HTTP::Tiny;
BEGIN { monkey_patch() }
for my $file ( dir_list("t/cases", qr/^form/ ) ) {
for my $file ( dir_list("corpus", qr/^form/ ) ) {
my $data = do { local (@ARGV,$/) = $file; <> };
my ($params, $expect_req, $give_res) = split /--+\n/, $data;
# cleanup source data
......
......@@ -18,7 +18,7 @@ SKIP: for my $class ( qw/t::SimpleCookieJar HTTP::CookieJar/ ) {
eval "require $class; 1"
or plan skip_all => "Needs $class";
for my $file ( dir_list("t/cases", qr/^cookies/ ) ) {
for my $file ( dir_list("corpus", qr/^cookies/ ) ) {
my $label = basename($file);
my $data = do { local (@ARGV,$/) = $file; <> };
my @cases = split /--+\n/, $data;
......
......@@ -12,7 +12,7 @@ use t::Util qw[tmpfile rewind slurp monkey_patch dir_list parse_case
use HTTP::Tiny;
BEGIN { monkey_patch() }
for my $file ( dir_list("t/cases", qr/^auth/ ) ) {
for my $file ( dir_list("corpus", qr/^auth/ ) ) {
my $label = basename($file);
my $data = do { local (@ARGV,$/) = $file; <> };
my ($params, @case_pairs) = split /--+\n/, $data;
......
......@@ -12,7 +12,7 @@ use t::Util qw[tmpfile rewind slurp monkey_patch dir_list parse_case
use HTTP::Tiny;
BEGIN { monkey_patch() }
for my $file ( dir_list("t/cases", qr/^proxy-auth/ ) ) {
for my $file ( dir_list("corpus", qr/^proxy-auth/ ) ) {
my $label = basename($file);
my $data = do { local (@ARGV,$/) = $file; <> };
my ($params, @case_pairs) = split /--+\n/, $data;
......
......@@ -59,7 +59,7 @@ new_ht();
$h->{handle}->close;
test_ht( "Socket closed", 0, 'http://foo.com' );
for my $file ( dir_list( "t/cases", qr/^keepalive/ ) ) {
for my $file ( dir_list( "corpus", qr/^keepalive/ ) ) {
my $label = basename($file);
my $data = do { local ( @ARGV, $/ ) = $file; <> };
my ( $title, $ok, $response ) = map { trim($_) } split /--+/, $data;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment