Commit | Line | Data |
227d4dee |
1 | package DBIx::Class::Componentised; |
2 | |
147dd158 |
3 | use Class::C3; |
4 | |
227d4dee |
5 | sub inject_base { |
6 | my ($class, $target, @to_inject) = @_; |
7 | { |
8 | no strict 'refs'; |
9 | unshift(@{"${target}::ISA"}, grep { $target ne $_ } @to_inject); |
10 | } |
147dd158 |
11 | eval "package $target; use Class::C3;"; |
227d4dee |
12 | } |
13 | |
14 | sub load_components { |
15 | my $class = shift; |
16 | my @comp = map { "DBIx::Class::$_" } grep { $_ !~ /^#/ } @_; |
17 | $class->_load_components(@comp); |
18 | } |
19 | |
20 | sub load_own_components { |
21 | my $class = shift; |
22 | my @comp = map { "${class}::$_" } grep { $_ !~ /^#/ } @_; |
23 | $class->_load_components(@comp); |
24 | } |
25 | |
26 | sub _load_components { |
27 | my ($class, @comp) = @_; |
28 | foreach my $comp (@comp) { |
29 | eval "use $comp"; |
30 | die $@ if $@; |
31 | } |
32 | $class->inject_base($class => @comp); |
33 | } |
34 | |
35 | 1; |