1 package DBIx::Class::Componentised;
6 my ($class, $target, @to_inject) = @_;
9 unshift(@{"${target}::ISA"}, grep { $target ne $_ && !$target->isa($_)} @to_inject);
12 # Yes, this is hack. But it *does* work. Please don't submit tickets about
13 # it on the basis of the comments in Class::C3, the author was on #dbix-class
14 # while I was implementing this.
16 my $table = { Class::C3::_dump_MRO_table };
17 eval "package $target; import Class::C3;" unless exists $table->{$target};
18 Class::C3::reinitialize() if defined $table->{$target};
23 my $base = $class->component_base_class;
24 my @comp = map { "${base}::$_" } grep { $_ !~ /^#/ } @_;
25 $class->_load_components(@comp);
28 sub load_own_components {
30 my @comp = map { "${class}::$_" } grep { $_ !~ /^#/ } @_;
31 $class->_load_components(@comp);
34 sub _load_components {
35 my ($class, @comp) = @_;
36 foreach my $comp (@comp) {
40 $class->inject_base($class => @comp);