lib/DBIx/Class/CDBICompat/Relationship.pm

   1 package
   2     DBIx::Class::CDBICompat::Relationship;
   3
   4 use strict;
   5 use warnings;
   6
   7 use base 'DBIx::Class';
   8
   9 use DBIx::Class::_Util 'quote_sub';
  10 use namespace::clean;
  11
  12 =head1 NAME
  13
  14 DBIx::Class::CDBICompat::Relationship - Emulate the Class::DBI::Relationship object returned from meta_info()
  15
  16 =head1 DESCRIPTION
  17
  18 Emulate the Class::DBI::Relationship object returned from C<meta_info()>.
  19
  20 =cut
  21
  22 my %method2key = (
  23     name            => 'type',
  24     class           => 'self_class',
  25     accessor        => 'accessor',
  26     foreign_class   => 'class',
  27     args            => 'args',
  28 );
  29
  30 quote_sub __PACKAGE__ . "::$_" => "\$_[0]->{$method2key{$_}}"
  31   for keys %method2key;
  32
  33 sub new {
  34     my($class, $args) = @_;
  35
  36     return bless $args, $class;
  37 }
  38
  39 =head1 FURTHER QUESTIONS?
  40
  41 Check the list of L<additional DBIC resources|DBIx::Class/GETTING HELP/SUPPORT>.
  42
  43 =head1 COPYRIGHT AND LICENSE
  44
  45 This module is free software L<copyright|DBIx::Class/COPYRIGHT AND LICENSE>
  46 by the L<DBIx::Class (DBIC) authors|DBIx::Class/AUTHORS>. You can
  47 redistribute it and/or modify it under the same terms as the
  48 L<DBIx::Class library|DBIx::Class/COPYRIGHT AND LICENSE>.
  49
  50 =cut
  51
  52 1;