First attempt at SQLA2Support

[scpubgit/Q-Branch.git] / lib / with.pm

diff --git a/lib/with.pm b/lib/with.pm
index 28055b4..96c2a66 100644 (file)
--- a/lib/with.pm
+++ b/lib/with.pm
@@ -18,8 +18,9 @@ sub components {
   Class::C3::Componentised->ensure_class_loaded($_) for @comp_classes;
   Class::C3::Componentised->inject_base(
     $new_class,
-    @comp_classes, $class,
+    @comp_classes, $class
   );
+  mro::set_mro($new_class, 'c3');
   return $new_class unless ref($inv);
   return bless($inv, $new_class);
 }