Only effectively builds the author list in t/10-base.t

This divides the test suite run time by three.

diff --git a/lib/Acme/CPANAuthors/You/re_using.pm b/lib/Acme/CPANAuthors/You/re_using.pm
index 785b614d0b89e6bea334e0ec39c90205086c3f8f..3841272ecbf4f55a09c9555630d51748375994b2 100644 (file)
--- a/lib/Acme/CPANAuthors/You/re_using.pm
+++ b/lib/Acme/CPANAuthors/You/re_using.pm
@@ -39,7 +39,11 @@ It may take some time to load since it has to get CPAN indexes at C<BEGIN> time.
 
 =cut
 
+our $SKIP;
+
 BEGIN {
+ return if $SKIP;
+
  my %authors;
 
  my $pkgs = Acme::CPANAuthors::Utils::cpan_packages();

diff --git a/t/00-load.t b/t/00-load.t
index 1211a76bbd2016daca53509533d2b23441bb8bf8..07af69090a7d34e2eae18b7bd90a7b78d2855626 100644 (file)
--- a/t/00-load.t
+++ b/t/00-load.t
@@ -7,7 +7,8 @@ use Test::More tests => 1;
 
 BEGIN {
  local $^W = 0;
-       use_ok( "Acme::CPANAuthors::You're_using" );
+ local $Acme::CPANAuthors::You're_using::SKIP = 1;
+ use_ok( "Acme::CPANAuthors::You're_using" );
 }
 
 diag( "Testing Acme::CPANAuthors::You're_using $Acme::CPANAuthors::You're_using::VERSION, Perl $], $^X" );

diff --git a/t/92-pod-coverage.t b/t/92-pod-coverage.t
index 27e0cf8f59fd3fc8a43e52c50908a5dbdb0daac5..c7bb84432d7349d84ce8232306c3ba19b0d50596 100644 (file)
--- a/t/92-pod-coverage.t
+++ b/t/92-pod-coverage.t
@@ -13,4 +13,8 @@ my $min_pc = 0.18;
 eval "use Pod::Coverage $min_pc";
 plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage" if $@;
 
-all_pod_coverage_ok( { also_private => [ qw/format_available init prepare create install uninstall/ ] });
+{
+ no warnings 'once';
+ local $Acme::CPANAuthors::You're_using::SKIP = 1;
+ all_pod_coverage_ok();
+}