lib/DBIx/Class/CDBICompat/Relationship.pm

   1 package
   2     DBIx::Class::CDBICompat::Relationship;
   3
   4 use strict;
   5 use warnings;
   6
   7 use DBIx::Class::_Util 'quote_sub';
   8
   9 =head1 NAME
  10
  11 DBIx::Class::CDBICompat::Relationship - Emulate the Class::DBI::Relationship object returned from meta_info()
  12
  13 =head1 DESCRIPTION
  14
  15 Emulate the Class::DBI::Relationship object returned from C<meta_info()>.
  16
  17 =cut
  18
  19 my %method2key = (
  20     name            => 'type',
  21     class           => 'self_class',
  22     accessor        => 'accessor',
  23     foreign_class   => 'class',
  24     args            => 'args',
  25 );
  26
  27 quote_sub __PACKAGE__ . "::$_" => "\$_[0]->{$method2key{$_}}"
  28   for keys %method2key;
  29
  30 sub new {
  31     my($class, $args) = @_;
  32
  33     return bless $args, $class;
  34 }
  35
  36 1;