#!perl
use 5.010000;
use strict;
use warnings FATAL => 'all';
use Test::More;
# Ensure a recent version of Test::Pod::Coverage
my $min_tpc = 1.08;
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all =>
"Test::Pod::Coverage $min_tpc required for testing POD coverage"
if $@;
# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
if $@;
# probably should figure up how to Pod::Coverage-compatible-POD up the not-
# BUILD attribute thingies here...
all_pod_coverage_ok(
{ trustme => [
qr/BUILD|atonal|get_contrary|get_modal_chrome|get_retrograde|get_transpose|has_modal_in|has_modal_out|has_modal_scale_in|has_modal_scale_out/
]
}
);