1 2 3 4 5 6 7
use strictures 2; use Test::More; use Test::Pod; my @poddirs = qw( blib script ); all_pod_files_ok( all_pod_files( @poddirs ) );