1
0

pod-coverage.t 636 B

123456789101112131415161718192021222324
  1. #!perl -T
  2. # vi: set tabstop=4 expandtab shiftwidth=4:
  3. use strict;
  4. use warnings;
  5. use Test::More;
  6. delete $ENV{PATH};
  7. # Ensure a recent version of Test::Pod::Coverage
  8. my $min_tpc = 1.08;
  9. eval "use Test::Pod::Coverage $min_tpc";
  10. plan(skip_all => "Test::Pod::Coverage $min_tpc required for "
  11. . "testing POD coverage") if $@;
  12. # Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
  13. # but older versions don't recognize some common documentation styles
  14. my $min_pc = 0.18;
  15. eval { use Pod::Coverage $min_pc };
  16. plan(skip_all => "Pod::Coverage $min_pc required for testing POD coverage")
  17. if $@;
  18. all_pod_coverage_ok();