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 =head1 FURTHER QUESTIONS?
  37
  38 Check the list of L<additional DBIC resources|DBIx::Class/GETTING HELP/SUPPORT>.
  39
  40 =head1 COPYRIGHT AND LICENSE
  41
  42 This module is free software L<copyright|DBIx::Class/COPYRIGHT AND LICENSE>
  43 by the L<DBIx::Class (DBIC) authors|DBIx::Class/AUTHORS>. You can
  44 redistribute it and/or modify it under the same terms as the
  45 L<DBIx::Class library|DBIx::Class/COPYRIGHT AND LICENSE>.
  46
  47 =cut
  48
  49 1;