X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FComponentised.pm;h=f83bd220b248181d0c99677a96315b03dfc63941;hb=147dd158cf91465b8a48adce738d56b85f7d1b9b;hp=72dd6f23fb5da5c0eb33a53ad03f91c3826342a7;hpb=103647d504eeadac7d179057e9f4d5eda0cd7c1b;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Componentised.pm b/lib/DBIx/Class/Componentised.pm index 72dd6f2..f83bd22 100644 --- a/lib/DBIx/Class/Componentised.pm +++ b/lib/DBIx/Class/Componentised.pm @@ -1,11 +1,14 @@ package DBIx::Class::Componentised; +use Class::C3; + sub inject_base { my ($class, $target, @to_inject) = @_; { no strict 'refs'; unshift(@{"${target}::ISA"}, grep { $target ne $_ } @to_inject); } + eval "package $target; use Class::C3;"; } sub load_components {