The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More;


if ( not $ENV{RELEASE_TESTING} ) {
    my $msg =
        'Author Test: Set $ENV{RELEASE_TESTING} to a true value to run.';
    plan( skip_all => $msg );
}


# Satisfy CPANTS, even though all functions are internal.

eval "use Test::Pod::Coverage 1.00"; ## no critic (eval)


plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage"
    if $@;


# Test for Inline::CPP, Inline::grammar, and Inline::CPP::Config (though the
# latter has no functions.

# There really aren't any functions explicitly called by the user. Everything
# is for internal use, and doesn't require POD documentation.
my $trustme = {
    trustme => [
        qr/(?:
              ^_
            | call          # Inline::CPP internal functions.
            | check
            | const
            | get
            | info
            | make
            | register
            | type
            | validate
            | write
            | wrap
            | xs_
        )/x
    ]
};

pod_coverage_ok( 'Inline::CPP',          $trustme );
pod_coverage_ok( 'Inline::CPP::Config',  $trustme );


done_testing();