Remove dead code commented out since 2006 ( 953a18ef )
[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / AccessorGroup.pm
1 package DBIx::Class::AccessorGroup;
2
3 use strict;
4 use warnings;
5
6 use base qw/Class::Accessor::Grouped/;
7 use Scalar::Util qw/weaken blessed/;
8 use namespace::clean;
9
10 my $successfully_loaded_components;
11
12 sub get_component_class {
13   my $class = $_[0]->get_inherited($_[1]);
14
15   # It's already an object, just go for it.
16   return $class if blessed $class;
17
18   if (defined $class and ! $successfully_loaded_components->{$class} ) {
19     $_[0]->ensure_class_loaded($class);
20
21     no strict 'refs';
22     $successfully_loaded_components->{$class}
23       = ${"${class}::__LOADED__BY__DBIC__CAG__COMPONENT_CLASS__"}
24         = do { \(my $anon = 'loaded') };
25     weaken($successfully_loaded_components->{$class});
26   }
27
28   $class;
29 };
30
31 sub set_component_class {
32   shift->set_inherited(@_);
33 }
34
35 1;
36
37 =head1 NAME
38
39 DBIx::Class::AccessorGroup - See Class::Accessor::Grouped
40
41 =head1 SYNOPSIS
42
43 =head1 DESCRIPTION
44
45 This class now exists in its own right on CPAN as Class::Accessor::Grouped
46
47 =head1 FURTHER QUESTIONS?
48
49 Check the list of L<additional DBIC resources|DBIx::Class/GETTING HELP/SUPPORT>.
50
51 =head1 COPYRIGHT AND LICENSE
52
53 This module is free software L<copyright|DBIx::Class/COPYRIGHT AND LICENSE>
54 by the L<DBIx::Class (DBIC) authors|DBIx::Class/AUTHORS>. You can
55 redistribute it and/or modify it under the same terms as the
56 L<DBIx::Class library|DBIx::Class/COPYRIGHT AND LICENSE>.
57
58 =cut