Commit | Line | Data |
a9c8094b |
1 | package |
2 | DBIx::Class::CDBICompat::Relationship; |
3 | |
4 | use strict; |
5 | use warnings; |
5e0eea35 |
6 | |
7 | use base 'DBIx::Class'; |
8d73fcd4 |
8 | |
9 | use DBIx::Class::_Util 'quote_sub'; |
51ec0382 |
10 | use namespace::clean; |
a9c8094b |
11 | |
12 | =head1 NAME |
13 | |
b24d86a1 |
14 | DBIx::Class::CDBICompat::Relationship - Emulate the Class::DBI::Relationship object returned from meta_info() |
a9c8094b |
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', |
1097f5e4 |
27 | args => 'args', |
a9c8094b |
28 | ); |
29 | |
8d73fcd4 |
30 | quote_sub __PACKAGE__ . "::$_" => "\$_[0]->{$method2key{$_}}" |
31 | for keys %method2key; |
32 | |
a9c8094b |
33 | sub new { |
34 | my($class, $args) = @_; |
d4daee7b |
35 | |
a9c8094b |
36 | return bless $args, $class; |
37 | } |
38 | |
a2bd3796 |
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 | |
a9c8094b |
52 | 1; |