2 DBIx::Class::CDBICompat::Relationship;
7 use DBIx::Class::_Util 'quote_sub';
11 DBIx::Class::CDBICompat::Relationship - Emulate the Class::DBI::Relationship object returned from meta_info()
15 Emulate the Class::DBI::Relationship object returned from C<meta_info()>.
21 class => 'self_class',
22 accessor => 'accessor',
23 foreign_class => 'class',
27 quote_sub __PACKAGE__ . "::$_" => "\$_[0]->{$method2key{$_}}"
31 my($class, $args) = @_;
33 return bless $args, $class;