Commit | Line | Data |
---|---|---|
0430b7f7 | 1 | #!/usr/bin/perl -w |
2 | ||
3 | use Test::More; | |
4 | use strict; | |
5 | ||
6 | my $tests; | |
7 | ||
8 | BEGIN | |
9 | { | |
10 | $tests = 1; | |
11 | plan tests => $tests; | |
12 | chdir 't' if -d 't'; | |
13 | use lib '../lib'; | |
14 | }; | |
15 | ||
16 | SKIP: | |
17 | { | |
c8db37d3 | 18 | skip("Test::Pod::Coverage 1.08 required for testing POD coverage", $tests) |
0430b7f7 | 19 | unless do { |
c8db37d3 | 20 | eval "use Test::Pod::Coverage 1.08"; |
0430b7f7 | 21 | $@ ? 0 : 1; |
22 | }; | |
23 | for my $m (qw/ | |
24 | Devel::Size | |
25 | /) | |
26 | { | |
27 | pod_coverage_ok( $m, "$m is covered" ); | |
28 | } | |
29 | } | |
30 |