The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl -T

use strict;
use lib "t";
use Test::More tests=>2;
use Test::Builder::Tester;

BEGIN { use_ok( 'Test::Pod::Coverage' ); }

# the follow test checks that PC_Inherits.pm is fully covered, which it is not
# -- unless you count the documentation of its parent, PC_Inherited; we do this
# with the Pod::Coverage::CountParents subclass of Pod::Coverage -- so, if this
# test passes, it means the subclass was, in fact, used
test_out( "ok 1 - Checking PC_Inherits" );
pod_coverage_ok(
  "PC_Inherits",
  { coverage_class => 'Pod::Coverage::CountParents' },
  "Checking PC_Inherits",
);

test_test( "allows alternate Pod::Coverage class" );