t/pod_cov.t

   1 #!/usr/bin/perl -w
   2
   3 use Test::More;
   4 use strict;
   5
   6 my $tests;
   7
   8 BEGIN
   9    {
  10    $tests = 1;
  11    plan tests => $tests;
  12    chdir 't' if -d 't';
  13    use lib '../lib';
  14    };
  15
  16 SKIP:
  17   {
  18   skip("Test::Pod::Coverage 1.08 required for testing POD coverage", $tests)
  19     unless do {
  20     eval "use Test::Pod::Coverage 1.08";
  21     $@ ? 0 : 1;
  22     };
  23   for my $m (qw/
  24     Devel::Size
  25    /)
  26     {
  27     pod_coverage_ok( $m, "$m is covered" );
  28     }
  29   }
  30