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 (file)
--- 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 (file)
--- 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 (file)
--- 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 },