1#!perl -w 2use strict ; 3use Test::More; 4 5BEGIN{ chdir '..' } 6 7eval "use Test::Pod::Coverage 1.00"; 8plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage" if $@; 9all_pod_coverage_ok( { also_private => [ qr/^[A-Z_]+$/, qr/^FillInForm$/, qr/^TableTiler$/ ] } ); 10 11 12 13