t/92-pod-coverage.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 # Ensure a recent version of Test::Pod::Coverage
   6 my $min_tpc = 1.08;
   7 eval "use Test::Pod::Coverage $min_tpc";
   8 plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage" if $@;
   9
  10 # Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
  11 # but older versions don't recognize some common documentation styles
  12 my $min_pc = 0.18;
  13 eval "use Pod::Coverage $min_pc";
  14 plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage" if $@;
  15
  16 all_pod_coverage_ok({
  17  also_private => [ qw<
  18   NO_PLAN
  19   SKIP_ALL
  20   THREADSAFE
  21   carp
  22   croak
  23   is_like
  24   is_unlike
  25   sanitize_comment
  26  > ],
  27 });