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
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 = (
class => 'self_class',
accessor => 'accessor',
foreign_class => 'class',
+ args => 'args',
);
sub new {
my($class, $args) = @_;
-
+
return bless $args, $class;
}
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;