Commit | Line | Data |
fe5d862b |
1 | package DBIx::Class::AccessorGroup; |
2 | |
12bbb339 |
3 | use strict; |
4 | use warnings; |
5 | |
73281318 |
6 | use base qw/Class::Accessor::Grouped/; |
701da8c4 |
7 | |
db29433c |
8 | our %successfully_loaded_components; |
9 | |
10 | sub get_component_class { |
11 | my $class = $_[0]->get_inherited($_[1]); |
12 | if (defined $class and ! $successfully_loaded_components{$class}) { |
13 | $_[0]->ensure_class_loaded($class); |
14 | $successfully_loaded_components{$class}++; # only increment if the load succeeded |
15 | } |
16 | $class; |
17 | }; |
18 | |
19 | sub set_component_class { |
20 | shift->set_inherited(@_); |
21 | } |
22 | |
fe0e9f67 |
23 | 1; |
24 | |
75d07914 |
25 | =head1 NAME |
34d52be2 |
26 | |
73281318 |
27 | DBIx::Class::AccessorGroup - See Class::Accessor::Grouped |
34d52be2 |
28 | |
29 | =head1 SYNOPSIS |
30 | |
31 | =head1 DESCRIPTION |
32 | |
73281318 |
33 | This class now exists in its own right on CPAN as Class::Accessor::Grouped |
fc969005 |
34 | |
34d52be2 |
35 | =head1 AUTHORS |
36 | |
daec44b8 |
37 | Matt S. Trout <mst@shadowcatsystems.co.uk> |
34d52be2 |
38 | |
39 | =head1 LICENSE |
40 | |
41 | You may distribute this code under the same terms as Perl itself. |
42 | |
43 | =cut |
44 | |