From: Michael G Schwern <mschwern@cpan.org>
Date: Wed, 13 Feb 2008 00:33:57 +0000 (-0800)
Subject: Fix the POD coverage test.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aa11d765d7345d63fbc497b4b5c16776eedbaa6e;p=dbsrgits%2FDBIx-Class-Historic.git

Fix the POD coverage test.
---

diff --git a/lib/DBIx/Class/CDBICompat/Relationship.pm b/lib/DBIx/Class/CDBICompat/Relationship.pm
index ba84843..a702bd2 100644
--- a/lib/DBIx/Class/CDBICompat/Relationship.pm
+++ b/lib/DBIx/Class/CDBICompat/Relationship.pm
@@ -13,6 +13,8 @@ DBIx::Class::CDBICompat::Relationship
 
 Emulate the Class::DBI::Relationship object returned from C<meta_info()>.
 
+The C<args()> method does not return any useful result as it's not clear what it should contain nor if any of the information is applicable to DBIx::Class.
+
 =cut
 
 my %method2key = (
diff --git a/lib/DBIx/Class/CDBICompat/Relationships.pm b/lib/DBIx/Class/CDBICompat/Relationships.pm
index 559a624..c6768a5 100644
--- a/lib/DBIx/Class/CDBICompat/Relationships.pm
+++ b/lib/DBIx/Class/CDBICompat/Relationships.pm
@@ -135,6 +135,7 @@ sub _extend_meta {
     $class->__meta_info(\%hash);
 }
 
+
 sub meta_info {
     my ($class, $type, $rel) = @_;
     my $meta = $class->__meta_info;
diff --git a/t/03podcoverage.t b/t/03podcoverage.t
index e8c0a0c..35add86 100644
--- a/t/03podcoverage.t
+++ b/t/03podcoverage.t
@@ -58,6 +58,8 @@ my $exceptions = {
     'DBIx::Class::CDBICompat::ObjIndexStubs'            => { skip => 1 },
     'DBIx::Class::CDBICompat::Pager'                    => { skip => 1 },
     'DBIx::Class::CDBICompat::ReadOnly'                 => { skip => 1 },
+    'DBIx::Class::CDBICompat::Relationship'             => { skip => 1 },
+    'DBIx::Class::CDBICompat::Relationships'            => { skip => 1 },
     'DBIx::Class::CDBICompat::Retrieve'                 => { skip => 1 },
     'DBIx::Class::CDBICompat::Stringify'                => { skip => 1 },
     'DBIx::Class::CDBICompat::TempColumns'              => { skip => 1 },