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

use strict;
use if !$ENV{AUTHOR_TESTS}, 'Test::More' => skip_all => 'Author tests';
use Test::More;
eval "use Test::Pod::Coverage 1.00";
plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage"
  if $@;
plan( tests => 2 );
my %trustme = ( trustme => [qr/^(remove|retrieve|store|teardown)$/] );
pod_coverage_ok( 'CGI::Session::Hidden',
                 { coverage_class => 'Pod::Coverage::CountParents',
                   %trustme });
pod_coverage_ok( 'CGI::Session::Driver::hidden',
                 { coverage_class => 'Pod::Coverage::CountParents',
                   %trustme });