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/; |
0d374214 | 7 | use Scalar::Util qw/weaken/; |
8 | use namespace::clean; | |
701da8c4 | 9 | |
0d374214 | 10 | my $successfully_loaded_components; |
db29433c | 11 | |
12 | sub get_component_class { | |
13 | my $class = $_[0]->get_inherited($_[1]); | |
0d374214 | 14 | |
15 | if (defined $class and ! $successfully_loaded_components->{$class} ) { | |
db29433c | 16 | $_[0]->ensure_class_loaded($class); |
0d374214 | 17 | |
18 | no strict 'refs'; | |
19 | $successfully_loaded_components->{$class} | |
20 | = ${"${class}::__LOADED__BY__DBIC__CAG__COMPONENT_CLASS__"} | |
21 | = do { \(my $anon = 'loaded') }; | |
22 | weaken($successfully_loaded_components->{$class}); | |
db29433c | 23 | } |
0d374214 | 24 | |
db29433c | 25 | $class; |
26 | }; | |
27 | ||
28 | sub set_component_class { | |
29 | shift->set_inherited(@_); | |
30 | } | |
31 | ||
fe0e9f67 | 32 | 1; |
33 | ||
75d07914 | 34 | =head1 NAME |
34d52be2 | 35 | |
73281318 | 36 | DBIx::Class::AccessorGroup - See Class::Accessor::Grouped |
34d52be2 | 37 | |
38 | =head1 SYNOPSIS | |
39 | ||
40 | =head1 DESCRIPTION | |
41 | ||
73281318 | 42 | This class now exists in its own right on CPAN as Class::Accessor::Grouped |
fc969005 | 43 | |
34d52be2 | 44 | =head1 AUTHORS |
45 | ||
daec44b8 | 46 | Matt S. Trout <mst@shadowcatsystems.co.uk> |
34d52be2 | 47 | |
48 | =head1 LICENSE | |
49 | ||
50 | You may distribute this code under the same terms as Perl itself. | |
51 | ||
52 | =cut | |
53 |