Diff of /trunk/t/099_pod_coverage.t [r418] .. [r419] Maximize Restore

  Switch to unified view

a/trunk/t/099_pod_coverage.t b/trunk/t/099_pod_coverage.t
1
use strict;
1
use strict;
2
use warnings;
3
use Test::More;
4
5
use lib qw(lib);
6
7
if ( not $ENV{TEST_AUTHOR} ) {
2
if ( not $ENV{TEST_AUTHOR} ) {
8
    my $msg = 'Author test.  Set $ENV{TEST_AUTHOR} to a true value to run.';
3
    my $msg = 'Author test.  Set $ENV{TEST_AUTHOR} to a true value to run.';
9
    plan( skip_all => $msg );
4
    print "1..0 
5
# $msg";
6
    exit 0;
7
}
8
require Test::More;
9
Test::More->import();
10
11
eval "use Test::Pod::Coverage 1.00";
12
plan( skip_all => "Test::Pod::Coverage 1.00 required for testing POD") if $@;
13
14
my @dirs = ( 'lib' );
15
if (-d '../t/') {       # we are inside t/
16
    @dirs = ('../lib');
17
} 
18
else {                  # we are outside t/
19
    # add ./lib to include path if blib/lib is not there (e.g. we're not 
20
    # run from Build test or the like) 
21
    push @INC, './lib' if not grep { $_ eq 'blib/lib' } @INC; 
10
}
22
}
11
23
12
eval "use Test::Pod::Coverage 1.00";
24
my @files = all_modules( @dirs );
13
plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage" if $@;
25
14
all_pod_coverage_ok();
26
plan( tests => scalar @files);
27
foreach (@files) {
28
    pod_coverage_ok( $_ , 
29
  { 
30
      private => [ 
31
         qr/^_/, 
32
         ]
33
  });
34
}