add_relationship, relationship_info, relationships moved to ResultSource
[dbsrgits/DBIx-Class-Historic.git] / lib / DBIx / Class / Componentised.pm
1 package DBIx::Class::Componentised;
2
3 use Class::C3;
4
5 sub inject_base {
6   my ($class, $target, @to_inject) = @_;
7   {
8     no strict 'refs';
9     unshift(@{"${target}::ISA"}, grep { $target ne $_ && !$target->isa($_)} @to_inject);
10   }
11   my $table = { Class::C3::_dump_MRO_table };
12   eval "package $target; import Class::C3;" unless exists $table->{$target};
13   Class::C3::reinitialize() if defined $table->{$target};
14 }
15
16 sub load_components {
17   my $class = shift;
18   my $base = $class->component_base_class;
19   my @comp = map { "${base}::$_" } grep { $_ !~ /^#/ } @_;
20   $class->_load_components(@comp);
21 }
22
23 sub load_own_components {
24   my $class = shift;
25   my @comp = map { "${class}::$_" } grep { $_ !~ /^#/ } @_;
26   $class->_load_components(@comp);
27 }
28
29 sub _load_components {
30   my ($class, @comp) = @_;
31   foreach my $comp (@comp) {
32     eval "use $comp";
33     die $@ if $@;
34   }
35   $class->inject_base($class => @comp);
36 }
37
38 1;