X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FRelationship.pm;h=b0c10fae62116d48297e4b348c673492655434fd;hb=e63ff8ebef77ca59561ff543d1f448dbf9417bfb;hp=ba8484373f80f39e9b54d4cafcbfcaf8ec8e2bb9;hpb=a9c8094b88e8802b1508c46512ded65fe8cdc16f;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/CDBICompat/Relationship.pm b/lib/DBIx/Class/CDBICompat/Relationship.pm
index ba84843..b0c10fa 100644
--- a/lib/DBIx/Class/CDBICompat/Relationship.pm
+++ b/lib/DBIx/Class/CDBICompat/Relationship.pm
@@ -3,11 +3,11 @@ package
 
 use strict;
 use warnings;
-
+use Sub::Name ();
 
 =head1 NAME
 
-DBIx::Class::CDBICompat::Relationship
+DBIx::Class::CDBICompat::Relationship - Emulate the Class::DBI::Relationship object returned from meta_info()
 
 =head1 DESCRIPTION
 
@@ -20,11 +20,12 @@ my %method2key = (
     class           => 'self_class',
     accessor        => 'accessor',
     foreign_class   => 'class',
+    args            => 'args',
 );
 
 sub new {
     my($class, $args) = @_;
-    
+
     return bless $args, $class;
 }
 
@@ -33,15 +34,9 @@ for my $method (keys %method2key) {
     my $code = sub {
         $_[0]->{$key};
     };
-    
-    no strict 'refs';
-    *{$method} = $code;
-}
 
-sub args {
-    warn "args() is unlikely to ever work";
-    return undef;
+    no strict 'refs';
+    *{$method} = Sub::Name::subname $method, $code;
 }
 
-
 1;