#!/usr/bin/perl use strict; use warnings; use Test::More; eval "use Test::Pod::Coverage 1.00"; plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage" if $@; plan tests => 1; pod_coverage_ok( "Text::Diff::Parser", { also_private => [ # qr/^(OH|SE)_.+$/, # qr/^(handler_for|instantiate|set_objectre)$/ ], }, "Text::Diff::Parser, ignoring private functions", );