Remove dead code commented out since 2006 ( 953a18ef )
[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / ResultSetManager.pm
1 package DBIx::Class::ResultSetManager;
2 use strict;
3 use warnings;
4 use base 'DBIx::Class';
5 use Sub::Name ();
6 use Class::Inspector;
7
8 warn "DBIx::Class::ResultSetManager never left experimental status and
9 has now been DEPRECATED. This module will be deleted in 09000 so please
10 migrate any and all code using it to explicit resultset classes using either
11 __PACKAGE__->resultset_class(...) calls or by switching from using
12 DBIx::Class::Schema->load_classes() to load_namespaces() and creating
13 appropriate My::Schema::ResultSet::* classes for it to pick up.";
14
15 =head1 NAME
16
17 DBIx::Class::ResultSetManager - scheduled for deletion in 09000
18
19 =head1 DESCRIPTION
20
21 DBIx::Class::ResultSetManager never left experimental status and
22 has now been DEPRECATED. This module will be deleted in 09000 so please
23 migrate any and all code using it to explicit resultset classes using either
24 __PACKAGE__->resultset_class(...) calls or by switching from using
25 DBIx::Class::Schema->load_classes() to load_namespaces() and creating
26 appropriate My::Schema::ResultSet::* classes for it to pick up.";
27
28 =cut
29
30 __PACKAGE__->mk_classdata($_)
31   for qw/ base_resultset_class table_resultset_class_suffix /;
32 __PACKAGE__->base_resultset_class('DBIx::Class::ResultSet');
33 __PACKAGE__->table_resultset_class_suffix('::_resultset');
34
35 sub table {
36     my ($self,@rest) = @_;
37     my $ret = $self->next::method(@rest);
38     if (@rest) {
39         $self->_register_attributes;
40         $self->_register_resultset_class;
41     }
42     return $ret;
43 }
44
45 sub load_resultset_components {
46     my ($self,@comp) = @_;
47     my $resultset_class = $self->_setup_resultset_class;
48     $resultset_class->load_components(@comp);
49 }
50
51 sub _register_attributes {
52     my $self = shift;
53     my $cache = $self->_attr_cache;
54     return if keys %$cache == 0;
55
56     foreach my $meth (@{Class::Inspector->methods($self) || []}) {
57         my $attrs = $cache->{$self->can($meth)};
58         next unless $attrs;
59         if ($attrs->[0] eq 'ResultSet') {
60             no strict 'refs';
61             my $resultset_class = $self->_setup_resultset_class;
62             my $name = join '::',$resultset_class, $meth;
63             *$name = Sub::Name::subname $name, $self->can($meth);
64             delete ${"${self}::"}{$meth};
65         }
66     }
67 }
68
69 sub _setup_resultset_class {
70     my $self = shift;
71     my $resultset_class = $self . $self->table_resultset_class_suffix;
72     no strict 'refs';
73     unless (@{"$resultset_class\::ISA"}) {
74         @{"$resultset_class\::ISA"} = ($self->base_resultset_class);
75     }
76     return $resultset_class;
77 }
78
79 sub _register_resultset_class {
80     my $self = shift;
81     my $resultset_class = $self . $self->table_resultset_class_suffix;
82     no strict 'refs';
83     if (@{"$resultset_class\::ISA"}) {
84         $self->result_source_instance->resultset_class($resultset_class);
85     } else {
86         $self->result_source_instance->resultset_class
87           ($self->base_resultset_class);
88     }
89 }
90
91 =head1 FURTHER QUESTIONS?
92
93 Check the list of L<additional DBIC resources|DBIx::Class/GETTING HELP/SUPPORT>.
94
95 =head1 COPYRIGHT AND LICENSE
96
97 This module is free software L<copyright|DBIx::Class/COPYRIGHT AND LICENSE>
98 by the L<DBIx::Class (DBIC) authors|DBIx::Class/AUTHORS>. You can
99 redistribute it and/or modify it under the same terms as the
100 L<DBIx::Class library|DBIx::Class/COPYRIGHT AND LICENSE>.
101
102 =cut
103
104 1;