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

BEGIN {
    $SIG{__WARN__} = sub {
        my ($message) = @_;
        return if !ref($message) && $message =~ m{Subroutine \w+ redefined};
        warn @_;
    };
}

use Test::More;
eval "use Test::Pod::Coverage 1.04";
plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
all_pod_coverage_ok();