X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FComponentised.pm;h=8ea297c455ef6999ae9be6f58f4619f5c30acf3e;hb=9a15732eb45a540351080f22f519fbd54a9de12c;hp=f83bd220b248181d0c99677a96315b03dfc63941;hpb=37df4bfe823e6129c9d6c5b86aee5bfa19d00c0b;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Componentised.pm b/lib/DBIx/Class/Componentised.pm index f83bd22..8ea297c 100644 --- a/lib/DBIx/Class/Componentised.pm +++ b/lib/DBIx/Class/Componentised.pm @@ -8,7 +8,9 @@ sub inject_base { no strict 'refs'; unshift(@{"${target}::ISA"}, grep { $target ne $_ } @to_inject); } - eval "package $target; use Class::C3;"; + my $table = { Class::C3::_dump_MRO_table }; + eval "package $target; use Class::C3;" unless exists $table->{$target}; + Class::C3::reinitialize() if defined $table->{$target}; } sub load_components {