@@ -1,27 +1,47 @@
-==============================
-2011-07-03 22:53:56 +0100 0.06
-==============================
+==================================================
+Changes from 2009-05-20 00:00:00 +0000 to present.
+==================================================
- commit 3ee8997d72e333ad13dd6075833c8b7b55b6338a
+-----------------------------------------
+version 0.08 at 2014-05-19 12:57:28 +0000
+-----------------------------------------
+
+ Change: e9dd91a3d0bd9caca9053062ae1a3f23b058b8b5
Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
- Date: Sun Jul 3 22:53:56 2011 +0100
-
+ Date : 2014-05-19 13:57:28 +0000
+
+ Ignore Perl6 modules that have been uploaded
+
+ Change: 698fe72f04cc56417a4e0ddca84b28c61c220dd7
+ Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
+ Date : 2011-07-04 12:10:02 +0000
+
+ Added a 'proper' test.
+
+-----------------------------------------
+version 0.06 at 2011-07-03 21:53:56 +0000
+-----------------------------------------
+
+ Change: 3ee8997d72e333ad13dd6075833c8b7b55b6338a
+ Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
+ Date : 2011-07-03 22:53:56 +0000
+
Fix the breakage with the previous release.
-==============================
-2011-06-28 23:44:07 +0100 0.04
-==============================
+-----------------------------------------
+version 0.04 at 2011-06-28 22:44:07 +0000
+-----------------------------------------
- commit 3d1210f60b22496d1971c2b65c2688da1cbb68b3
+ Change: 3d1210f60b22496d1971c2b65c2688da1cbb68b3
Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
- Date: Tue Jun 28 23:44:07 2011 +0100
-
- Bump version for CPAN release
+ Date : 2011-06-28 23:44:07 +0000
- commit 2f9692624502272e8aa77484a282b563f83d483e
+ Bump version for CPAN release
+
+ Change: 2f9692624502272e8aa77484a282b563f83d483e
Author: Jeroen Latour <tour@jeroen.la>
- Date: Tue Jun 28 23:42:25 2011 +0100
-
+ Date : 2011-06-28 23:42:25 +0000
+
Resolve [RT #69119] "Module can be used only once per session"
Because the current implementation of 'recent' modifies @times, it is
@@ -33,6 +53,58 @@
Signed-off-by: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
-====================================
-End of changes in the last 1825 days
-====================================
+-----------------------------------------
+version 0.02 at 2010-11-13 15:19:21 +0000
+-----------------------------------------
+
+ Change: 0df9f6a97f28a026769e0bced10a70855dbb5292
+ Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
+ Date : 2010-11-13 15:19:21 +0000
+
+ Now with extra SYNOPSIS.
+
+ Change: 1c4f37e1ad784becb3a566806e00da8fa1866756
+ Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
+ Date : 2010-11-13 14:26:23 +0000
+
+ Documentation.
+
+ Change: 343a3a49439c159bf2e8018fe09e84493f369a4a
+ Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
+ Date : 2010-11-13 14:16:13 +0000
+
+ Things can only get better
+
+ Change: 2dc5336eb82d77a04c204a24245c15367a27be3f
+ Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
+ Date : 2010-11-13 13:33:19 +0000
+
+ Removed extraneous variable
+
+ Change: 179ecf0681bab1b097922c7b8b683275ec167e2a
+ Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
+ Date : 2010-11-13 11:07:43 +0000
+
+ Change to use our Retriever
+
+ Change: d40c02829a00300eb8b84231aedf39f7aa4fbd37
+ Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
+ Date : 2010-11-13 11:02:33 +0000
+
+ Decided how to return the uploads data
+
+ Change: 7d98b8aea69c463c840d87c4c7ebebea76bd1330
+ Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
+ Date : 2010-11-13 10:02:28 +0000
+
+ Make retriever only return content if the response was a success
+
+ Change: 447b5b09e41df7bc6b9dc0572cc7aedac703814c
+ Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
+ Date : 2010-11-13 09:37:02 +0000
+
+ I started something, typical me.
+
+================
+End of releases.
+================
@@ -1,4 +1,4 @@
-This software is copyright (c) 2011 by Chris Williams.
+This software is copyright (c) 2014 by Chris Williams.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -12,7 +12,7 @@ b) the "Artistic License"
--- The GNU General Public License, Version 1, February 1989 ---
-This software is Copyright (c) 2011 by Chris Williams.
+This software is Copyright (c) 2014 by Chris Williams.
This is free software, licensed under:
@@ -22,7 +22,7 @@ This is free software, licensed under:
Version 1, February 1989
Copyright (C) 1989 Free Software Foundation, Inc.
- 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+ 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
@@ -272,7 +272,7 @@ That's all there is to it!
--- The Artistic License 1.0 ---
-This software is Copyright (c) 2011 by Chris Williams.
+This software is Copyright (c) 2014 by Chris Williams.
This is free software, licensed under:
@@ -1,3 +1,4 @@
+# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.017.
Changes
LICENSE
MANIFEST
@@ -9,5 +10,6 @@ dist.ini
lib/CPAN/Recent/Uploads.pm
lib/CPAN/Recent/Uploads/Retriever.pm
t/00-compile.t
+t/01-recent.t
t/release-pod-coverage.t
t/release-pod-syntax.t
@@ -4,7 +4,7 @@
"Chris Williams <chris@bingosnet.co.uk>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 4.200008, CPAN::Meta::Converter version 2.110930",
+ "generated_by" : "Dist::Zilla version 5.017, CPAN::Meta::Converter version 2.141170",
"license" : [
"perl_5"
],
@@ -19,27 +19,42 @@
"ExtUtils::MakeMaker" : "6.30"
}
},
+ "develop" : {
+ "requires" : {
+ "Pod::Coverage::TrustPod" : "0",
+ "Test::Pod" : "1.41",
+ "Test::Pod::Coverage" : "1.08"
+ }
+ },
"runtime" : {
"requires" : {
- "Carp" : 0,
- "File::Spec" : 0,
- "File::Spec::Unix" : 0,
+ "Carp" : "0",
+ "File::Spec" : "0",
+ "File::Spec::Unix" : "0",
"LWP::UserAgent" : "5.835",
"URI" : "1.56",
"YAML::Syck" : "1.15",
"perl" : "v5.6.0"
}
+ },
+ "test" : {
+ "requires" : {
+ "File::Spec" : "0",
+ "IO::Handle" : "0",
+ "IPC::Open3" : "0",
+ "Test::More" : "0"
+ }
}
},
"release_status" : "stable",
"resources" : {
- "homepage" : "http://github.com/bingos/cpan-recent-uploads",
+ "homepage" : "https://github.com/bingos/cpan-recent-uploads",
"repository" : {
"type" : "git",
- "url" : "http://github.com/bingos/cpan-recent-uploads",
- "web" : "http://github.com/bingos/cpan-recent-uploads"
+ "url" : "https://github.com/bingos/cpan-recent-uploads.git",
+ "web" : "https://github.com/bingos/cpan-recent-uploads"
}
},
- "version" : "0.06"
+ "version" : "0.08"
}
@@ -2,25 +2,29 @@
abstract: 'Find the distributions recently uploaded to CPAN'
author:
- 'Chris Williams <chris@bingosnet.co.uk>'
-build_requires: {}
+build_requires:
+ File::Spec: '0'
+ IO::Handle: '0'
+ IPC::Open3: '0'
+ Test::More: '0'
configure_requires:
- ExtUtils::MakeMaker: 6.30
+ ExtUtils::MakeMaker: '6.30'
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.200008, CPAN::Meta::Converter version 2.110930'
+generated_by: 'Dist::Zilla version 5.017, CPAN::Meta::Converter version 2.141170'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ version: '1.4'
name: CPAN-Recent-Uploads
requires:
- Carp: 0
- File::Spec: 0
- File::Spec::Unix: 0
- LWP::UserAgent: 5.835
- URI: 1.56
- YAML::Syck: 1.15
+ Carp: '0'
+ File::Spec: '0'
+ File::Spec::Unix: '0'
+ LWP::UserAgent: '5.835'
+ URI: '1.56'
+ YAML::Syck: '1.15'
perl: v5.6.0
resources:
- homepage: http://github.com/bingos/cpan-recent-uploads
- repository: http://github.com/bingos/cpan-recent-uploads
-version: 0.06
+ homepage: https://github.com/bingos/cpan-recent-uploads
+ repository: https://github.com/bingos/cpan-recent-uploads.git
+version: '0.08'
@@ -1,4 +1,5 @@
+# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.017.
use strict;
use warnings;
@@ -9,42 +10,53 @@ use ExtUtils::MakeMaker 6.30;
my %WriteMakefileArgs = (
- 'ABSTRACT' => 'Find the distributions recently uploaded to CPAN',
- 'AUTHOR' => 'Chris Williams <chris@bingosnet.co.uk>',
- 'BUILD_REQUIRES' => {},
- 'CONFIGURE_REQUIRES' => {
- 'ExtUtils::MakeMaker' => '6.30'
+ "ABSTRACT" => "Find the distributions recently uploaded to CPAN",
+ "AUTHOR" => "Chris Williams <chris\@bingosnet.co.uk>",
+ "CONFIGURE_REQUIRES" => {
+ "ExtUtils::MakeMaker" => "6.30"
},
- 'DISTNAME' => 'CPAN-Recent-Uploads',
- 'EXE_FILES' => [],
- 'LICENSE' => 'perl',
- 'NAME' => 'CPAN::Recent::Uploads',
- 'PREREQ_PM' => {
- 'Carp' => '0',
- 'File::Spec' => '0',
- 'File::Spec::Unix' => '0',
- 'LWP::UserAgent' => '5.835',
- 'URI' => '1.56',
- 'YAML::Syck' => '1.15'
+ "DISTNAME" => "CPAN-Recent-Uploads",
+ "EXE_FILES" => [],
+ "LICENSE" => "perl",
+ "NAME" => "CPAN::Recent::Uploads",
+ "PREREQ_PM" => {
+ "Carp" => 0,
+ "File::Spec" => 0,
+ "File::Spec::Unix" => 0,
+ "LWP::UserAgent" => "5.835",
+ "URI" => "1.56",
+ "YAML::Syck" => "1.15"
},
- 'VERSION' => '0.06',
- 'test' => {
- 'TESTS' => 't/*.t'
+ "TEST_REQUIRES" => {
+ "File::Spec" => 0,
+ "IO::Handle" => 0,
+ "IPC::Open3" => 0,
+ "Test::More" => 0
+ },
+ "VERSION" => "0.08",
+ "test" => {
+ "TESTS" => "t/*.t"
}
);
-unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {
- my $br = delete $WriteMakefileArgs{BUILD_REQUIRES};
- my $pp = $WriteMakefileArgs{PREREQ_PM};
- for my $mod ( keys %$br ) {
- if ( exists $pp->{$mod} ) {
- $pp->{$mod} = $br->{$mod} if $br->{$mod} > $pp->{$mod};
- }
- else {
- $pp->{$mod} = $br->{$mod};
- }
- }
+my %FallbackPrereqs = (
+ "Carp" => 0,
+ "File::Spec" => 0,
+ "File::Spec::Unix" => 0,
+ "IO::Handle" => 0,
+ "IPC::Open3" => 0,
+ "LWP::UserAgent" => "5.835",
+ "Test::More" => 0,
+ "URI" => "1.56",
+ "YAML::Syck" => "1.15"
+);
+
+
+unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
+ delete $WriteMakefileArgs{TEST_REQUIRES};
+ delete $WriteMakefileArgs{BUILD_REQUIRES};
+ $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
}
delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
@@ -2,7 +2,7 @@ NAME
CPAN::Recent::Uploads - Find the distributions recently uploaded to CPAN
VERSION
- version 0.06
+ version 0.08
SYNOPSIS
use CPAN::Recent::Uploads;
@@ -41,7 +41,7 @@ AUTHOR
Chris Williams <chris@bingosnet.co.uk>
COPYRIGHT AND LICENSE
- This software is copyright (c) 2011 by Chris Williams.
+ This software is copyright (c) 2014 by Chris Williams.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -1,5 +1,5 @@
name = CPAN-Recent-Uploads
-version = 0.06
+version = 0.08
author = Chris Williams <chris@bingosnet.co.uk>
license = Perl_5
copyright_holder = Chris Williams
@@ -1,8 +1,5 @@
package CPAN::Recent::Uploads::Retriever;
-BEGIN {
- $CPAN::Recent::Uploads::Retriever::VERSION = '0.06';
-}
-
+$CPAN::Recent::Uploads::Retriever::VERSION = '0.08';
#ABSTRACT: Retrieves recentfiles from a CPAN mirror
use strict;
@@ -41,17 +38,19 @@ sub _fetch {
q[Woof];
-
__END__
+
=pod
+=encoding UTF-8
+
=head1 NAME
CPAN::Recent::Uploads::Retriever - Retrieves recentfiles from a CPAN mirror
=head1 VERSION
-version 0.06
+version 0.08
=head1 SYNOPSIS
@@ -84,10 +83,9 @@ Chris Williams <chris@bingosnet.co.uk>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2011 by Chris Williams.
+This software is copyright (c) 2014 by Chris Williams.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
-
@@ -1,8 +1,5 @@
package CPAN::Recent::Uploads;
-BEGIN {
- $CPAN::Recent::Uploads::VERSION = '0.06';
-}
-
+$CPAN::Recent::Uploads::VERSION = '0.08';
#ABSTRACT: Find the distributions recently uploaded to CPAN
use strict;
@@ -12,9 +9,9 @@ use YAML::Syck;
use File::Spec;
use CPAN::Recent::Uploads::Retriever;
-my $MIRROR = 'ftp://ftp.funet.fi/pub/CPAN/';
+my $MIRROR = 'http://www.cpan.org/';
my @times = qw(1h 6h 1d 1W 1M 1Q 1Y);
-my %periods = (
+my %periods = (
'1h' => (60*60),
'6h' => (60*60*6),
'1d' => (60*60*24),
@@ -26,7 +23,7 @@ my %periods = (
sub recent {
my $epoch = shift;
- $epoch = shift if $epoch and $epoch->isa(__PACKAGE__);
+ $epoch = shift if $epoch and eval { $epoch->isa(__PACKAGE__) };
$epoch = ( time() - ( 7 * 24 * 60 * 60 ) )
unless $epoch and $epoch =~ /^\d+$/ and
$epoch <= time() and $epoch >= ( time() - $periods{'1Y'} );
@@ -43,13 +40,17 @@ sub recent {
RECENT: foreach my $recent ( reverse @{ $record->{recent} } ) {
next RECENT unless $recent->{path} =~ /\.(tar\.gz|tgz|tar\.bz2|zip)$/;
if ( $recent->{type} eq 'new' ) {
- ( my $foo = $recent->{path} ) =~ s#^id/##;
+ ( my $bar = $recent->{path} ) =~ s#^id/##;
next RECENT if $recent->{epoch} < $epoch;
- $data{ $foo } = $recent->{epoch};
+ {
+ my @parts = split m!/!, $bar;
+ next RECENT if $parts[3] =~ m!Perl6!i;
+ }
+ $data{ $bar } = $recent->{epoch};
}
else {
- ( my $foo = $recent->{path} ) =~ s#^id/##;
- delete $data{ $foo } if exists $data{ $foo };
+ ( my $bar = $recent->{path} ) =~ s#^id/##;
+ delete $data{ $bar } if exists $data{ $foo };
}
}
last if $foo eq $period;
@@ -68,17 +69,19 @@ sub _period_from_epoch {
q[Whats uploaded, Doc?];
-
__END__
+
=pod
+=encoding UTF-8
+
=head1 NAME
CPAN::Recent::Uploads - Find the distributions recently uploaded to CPAN
=head1 VERSION
-version 0.06
+version 0.08
=head1 SYNOPSIS
@@ -105,7 +108,7 @@ on C<CPAN>.
=item C<recent>
-Takes two optional arguments. The first argument is an C<epoch> time you wish to
+Takes two optional arguments. The first argument is an C<epoch> time you wish to
find the uploads since. If it is not supplied the default is the current time minus
one week. The second argument is the URL of a C<CPAN> mirror you wish to query. If it
is not supplied then C<ftp://ftp.funet.fi/pub/CPAN/> is used.
@@ -124,10 +127,9 @@ Chris Williams <chris@bingosnet.co.uk>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2011 by Chris Williams.
+This software is copyright (c) 2014 by Chris Williams.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
-
@@ -1,59 +1,51 @@
-#!perl
-
+use 5.006;
use strict;
use warnings;
-use Test::More;
+# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.040
+use Test::More tests => 2 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
-use File::Find;
-use File::Temp qw{ tempdir };
-my @modules;
-find(
- sub {
- return if $File::Find::name !~ /\.pm\z/;
- my $found = $File::Find::name;
- $found =~ s{^lib/}{};
- $found =~ s{[/\\]}{::}g;
- $found =~ s/\.pm$//;
- # nothing to skip
- push @modules, $found;
- },
- 'lib',
+my @module_files = (
+ 'CPAN/Recent/Uploads.pm',
+ 'CPAN/Recent/Uploads/Retriever.pm'
);
-my @scripts;
-if ( -d 'bin' ) {
- find(
- sub {
- return unless -f;
- my $found = $File::Find::name;
- # nothing to skip
- push @scripts, $found;
- },
- 'bin',
- );
-}
-my $plan = scalar(@modules) + scalar(@scripts);
-$plan ? (plan tests => $plan) : (plan skip_all => "no tests to run");
+# no fake home requested
+
+my $inc_switch = -d 'blib' ? '-Mblib' : '-Ilib';
+
+use File::Spec;
+use IPC::Open3;
+use IO::Handle;
+
+open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!";
+
+my @warnings;
+for my $lib (@module_files)
{
- # fake home for cpan-testers
- # no fake requested ## local $ENV{HOME} = tempdir( CLEANUP => 1 );
-
- like( qx{ $^X -Ilib -e "require $_; print '$_ ok'" }, qr/^\s*$_ ok/s, "$_ loaded ok" )
- for sort @modules;
-
- SKIP: {
- eval "use Test::Script 1.05; 1;";
- skip "Test::Script needed to test script compilation", scalar(@scripts) if $@;
- foreach my $file ( @scripts ) {
- my $script = $file;
- $script =~ s!.*/!!;
- script_compiles( $file, "$script script compiles" );
- }
+ # see L<perlfaq8/How can I capture STDERR from an external command?>
+ my $stderr = IO::Handle->new;
+
+ my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, '-e', "require q[$lib]");
+ binmode $stderr, ':crlf' if $^O eq 'MSWin32';
+ my @_warnings = <$stderr>;
+ waitpid($pid, 0);
+ is($?, 0, "$lib loaded ok");
+
+ if (@_warnings)
+ {
+ warn @_warnings;
+ push @warnings, @_warnings;
}
}
+
+
+
+is(scalar(@warnings), 0, 'no warnings found') if $ENV{AUTHOR_TESTING};
+
+
@@ -0,0 +1,87 @@
+use strict;
+use warnings;
+
+BEGIN {
+
+$|=1;
+require YAML::Syck;
+my @data = qw(
+id/A/AA/AAU/MRIM/CHECKSUMS
+id/A/AA/AAU/MRIM/Net-MRIM-1.10.meta
+id/A/AA/AAU/MRIM/Net-MRIM-1.10.tar.gz
+id/A/AD/ADAMK/CHECKSUMS
+id/A/AD/ADAMK/ORLite-1.17.meta
+id/A/AD/ADAMK/ORLite-1.17.readme
+id/A/AD/ADAMK/ORLite-1.17.tar.gz
+id/A/AD/ADAMK/Test-NeedsDisplay-1.06.meta
+id/A/AD/ADAMK/Test-NeedsDisplay-1.06.readme
+id/A/AD/ADAMK/Test-NeedsDisplay-1.06.tar.gz
+id/A/AD/ADAMK/Test-NeedsDisplay-1.07.meta
+id/A/AD/ADAMK/Test-NeedsDisplay-1.07.readme
+id/A/AD/ADAMK/Test-NeedsDisplay-1.07.tar.gz
+id/A/AD/ADAMK/YAML-Tiny-1.36.meta
+id/A/AD/ADAMK/YAML-Tiny-1.36.readme
+id/A/AD/ADAMK/YAML-Tiny-1.36.tar.gz
+id/J/JO/JONATHAN/Perl6/NativeCall-v1.tar.gz
+);
+
+my $yaml = YAML::Syck::Dump( { recent => [ map { { path => $_, type => 'new', epoch => (time() - (60*20)) } } @data ] } );
+
+my $D = shift || '';
+if ($D eq 'daemon') {
+ require HTTP::Daemon;
+ require File::Spec;
+ my $d = HTTP::Daemon->new(LocalAddr => '127.0.0.1', Timeout => 10);
+ print "Please to meet you at: <URL:", $d->url, ">\n";
+ open( STDOUT, '>', File::Spec->devnull );
+ while( my $c = $d->accept ) {
+ my $r = $c->get_request;
+ if ( $r ) {
+ require HTTP::Response;
+ my $resp = HTTP::Response->new( 200 );
+ $resp->protocol('HTTP/1.1');
+ $resp->header('Content-Type', 'application/octet-stream');
+ $resp->header('Connection', 'close');
+ $resp->content( $yaml );
+ $c->send_response( $resp );
+ }
+ $c = undef;
+ }
+ warn "# HTTP Server Terminated\n";
+ exit 0;
+}
+else {
+ open (DAEMON, "$^X t/01-recent.t daemon |") or die "Can\'t exec daemon: $!";
+}
+
+}
+
+use Test::More 'no_plan';
+use CPAN::Recent::Uploads;
+
+my @tests = qw(
+A/AA/AAU/MRIM/Net-MRIM-1.10.tar.gz
+A/AD/ADAMK/ORLite-1.17.tar.gz
+A/AD/ADAMK/Test-NeedsDisplay-1.06.tar.gz
+A/AD/ADAMK/Test-NeedsDisplay-1.07.tar.gz
+A/AD/ADAMK/YAML-Tiny-1.36.tar.gz
+);
+
+my $greeting = <DAEMON>;
+$greeting =~ /(<[^>]+>)/;
+
+require URI;
+my $base = URI->new($1);
+sub url {
+ my $u = URI->new(@_);
+ $u = $u->abs($_[1]) if @_ > 1;
+ $u->as_string;
+}
+
+print "Will access HTTP server at $base\n";
+
+my @recent = sort CPAN::Recent::Uploads->recent( time() - ( 60 * 30 ), $base );
+
+is_deeply( \@recent, \@tests, 'We got the correct list of uploads' );
+
+diag("Waiting for HTTP server to terminate\n");
@@ -7,15 +7,9 @@ BEGIN {
}
}
+# This file was automatically generated by Dist::Zilla::Plugin::PodCoverageTests.
-use Test::More;
-
-eval "use Test::Pod::Coverage 1.08";
-plan skip_all => "Test::Pod::Coverage 1.08 required for testing POD coverage"
- if $@;
-
-eval "use Pod::Coverage::TrustPod";
-plan skip_all => "Pod::Coverage::TrustPod required for testing POD coverage"
- if $@;
+use Test::Pod::Coverage 1.08;
+use Pod::Coverage::TrustPod;
all_pod_coverage_ok({ coverage_class => 'Pod::Coverage::TrustPod' });
@@ -7,9 +7,8 @@ BEGIN {
}
}
+# This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests.
use Test::More;
-
-eval "use Test::Pod 1.41";
-plan skip_all => "Test::Pod 1.41 required for testing POD" if $@;
+use Test::Pod 1.41;
all_pod_files_ok();