plan skip_all => 'Test::Pod::Coverage 1.04 required' if $@;
plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
-my @modules = sort { $a cmp $b } (all_modules());
+my @modules = sort { $a cmp $b } (Test::Pod::Coverage::all_modules());
plan tests => scalar(@modules);
# Since this is about checking documentation, a little documentation
'DBIx::Class::Relationship::ProxyMethods' => { skip => 1 },
'DBIx::Class::ResultSetProxy' => { skip => 1 },
'DBIx::Class::ResultSourceProxy' => { skip => 1 },
- 'DBIx::Class::Storage' => { skip => 1 },
+ 'DBIx::Class::Storage::DBI' => { skip => 1 },
'DBIx::Class::Storage::DBI::DB2' => { skip => 1 },
'DBIx::Class::Storage::DBI::MSSQL' => { skip => 1 },
'DBIx::Class::Storage::DBI::MultiDistinctEmulation' => { skip => 1 },
foreach my $module (@modules) {
SKIP:
{
- skip "No real methods", 1 if ($exceptions->{$module}{skip});
+ skip "$module - No real methods", 1 if ($exceptions->{$module}{skip});
# build parms up from ignore list
my $parms = {};