The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use 5.008;

use Test::More;
eval "use Test::Pod::Coverage 1.00";
plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD Coverage" if $@;
all_pod_coverage_ok(
                     {
                       also_private => [qr/^[A-Z_]+$/],
                       trustme      => [qr/^(?:new|driver)$/]
                     }
                   );    #Ignore all caps