X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F03podcoverage.t;h=aefceb2650f46642f775a42feccb202328fabc27;hb=a28009914a3e447af53737d503b1953160d146c9;hp=8cb8c4f6252fe88f41f2eef7ababb7f96440c35d;hpb=97fec99f26f9bb085051e0472b57cdf81e7fdfb1;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/03podcoverage.t b/t/03podcoverage.t
index 8cb8c4f..aefceb2 100644
--- a/t/03podcoverage.t
+++ b/t/03podcoverage.t
@@ -58,7 +58,7 @@ my $exceptions = {
     '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 },
@@ -70,12 +70,24 @@ my $exceptions = {
     'DBIx::Class::Storage::DBI::mysql'                  => { skip => 1 },
     'SQL::Translator::Parser::DBIx::Class'              => { skip => 1 },
     'SQL::Translator::Producer::DBIx::Class::File'      => { skip => 1 },
+
+# skipped because the synopsis covers it clearly
+
+    'DBIx::Class::InflateColumn::File'                  => { skip => 1 },
+
+# skip connection since it's just an override
+
+    'DBIx::Class::Schema::Versioned' => { ignore => [ qw(connection) ] },
+
+# must kill authors.
+
+    'DBIx::Class::Storage::DBI::Replication' => { 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 = {};