]> git.vpit.fr Git - perl/modules/Sub-Op.git/blob - t/92-pod-coverage.t
Test if the name member is not NULL before cloning it
[perl/modules/Sub-Op.git] / t / 92-pod-coverage.t
1 #!perl -T
2
3 use strict;
4 use warnings;
5
6 use Test::More;
7
8 eval "use Test::Pod::Coverage 1.04 (tests => 1)";
9 plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
10 pod_coverage_ok(
11  'Sub::Op',
12  {
13   also_private => [
14    qr/^_/,
15    qr/^CLONE(_SKIP)?$/,
16    'dl_load_flags',
17   ],
18  },
19  'Sub::Op is covered',
20 );