#!/usr/bin/perl -w
use Test::More;
use strict;
if (!eval q{ use Test::Pod::Coverage 1.00; 1 }) {
plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage";
exit 0;
}
my @mod_defs = (
['Info'],
['Info::BMP'],
['Info::PPM'],
['Info::SVG'],
['Info::XBM'],
['Info::XPM'],
['Info::TIFF'],
['TIFF', uncovered => 1],
['Info::GIF', uncovered => 1],
['Info::PNG', uncovered => 1],
['Info::JPEG', uncovered => 1],
);
plan tests => scalar @mod_defs;
for my $mod_def (@mod_defs) {
my $mod = 'Image::' . shift(@$mod_def);
my %test_opts = @$mod_def;
local $TODO;
if ($test_opts{uncovered}) {
$TODO = "$mod is not yet covered";
}
SKIP: {
skip "Cannot test Pod coverage of $mod, maybe prereqs are missing", 1
if !eval qq{ require $mod; 1 };
pod_coverage_ok($mod, "$mod is covered");
}
}