From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

# $Id: pod-coverage.t,v 1.1 2007/08/14 16:42:21 drhyde Exp $
use strict;
$^W=1;
eval "use Test::Pod::Coverage 1.00";
plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage" if $@;
# Some anonymous functions are showing up as 'BEGIN'
all_pod_coverage_ok( { trustme => [ qr/^BEGIN$/ ] } );