#!perl -T
use Test::More;
eval "use Test::Pod::Coverage 1.04";
if ($@) {
plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage"
} else {
plan tests => 1;
}
#pod_coverage_ok('Hardware::Vhdl::Lexer', {also_private => qr/^START$/}, 'Hardware::Vhdl::Lexer with START private');
pod_coverage_ok(
"Hardware::Vhdl::Lexer",
{ also_private => [ qr/^[A-Z_]+$/ ], },
"Hardware::Vhdl::Lexer, with all-caps functions as privates",
);