1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!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;
}
# The 'form_state' sub is not documented separately. Instead it's documented in
# the calling syntax of every other sub.
pod_coverage_ok(
"CGI::Application::Plugin::FormState",
{ also_private => [ qr/^(form_state)|(init)$/ ], },
"CAP::FormState, POD coverage, but marking the 'form_state' and 'init' subs as private",
);
|
