Make meta_info() 'args' work.

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / Relationship.pm

diff --git a/lib/DBIx/Class/CDBICompat/Relationship.pm b/lib/DBIx/Class/CDBICompat/Relationship.pm
index a702bd2..55fff10 100644 (file)
--- a/lib/DBIx/Class/CDBICompat/Relationship.pm
+++ b/lib/DBIx/Class/CDBICompat/Relationship.pm
@@ -13,8 +13,6 @@ 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 = (
@@ -22,6 +20,7 @@ my %method2key = (
     class           => 'self_class',
     accessor        => 'accessor',
     foreign_class   => 'class',
+    args            => 'args',
 );
 
 sub new {
@@ -40,10 +39,4 @@ for my $method (keys %method2key) {
     *{$method} = $code;
 }
 
-sub args {
-    warn "args() is unlikely to ever work";
-    return undef;
-}
-
-
 1;