Remove last remaining accesses to ->VERSION in lib
[dbsrgits/DBIx-Class.git] / 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;