1 package DBIx::Class::Componentised;
6 my ($class, $target, @to_inject) = @_;
9 unshift(@{"${target}::ISA"}, grep { $target ne $_ } @to_inject);
11 eval "package $target; use Class::C3;";
16 my @comp = map { "DBIx::Class::$_" } grep { $_ !~ /^#/ } @_;
17 $class->_load_components(@comp);
20 sub load_own_components {
22 my @comp = map { "${class}::$_" } grep { $_ !~ /^#/ } @_;
23 $class->_load_components(@comp);
26 sub _load_components {
27 my ($class, @comp) = @_;
28 foreach my $comp (@comp) {
32 $class->inject_base($class => @comp);