X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FModule.pm;fp=lib%2FMouse%2FMeta%2FModule.pm;h=3fbb865182e11a6b804ee5d6918aa9ac4d4c8483;hp=8feeda8adf38ef5849151467f32779d48cbf6eeb;hb=23791e495220e73530e7b2f7ea3347681e4d49cd;hpb=7d4507ba0976d10a036aaa3a3a2ecb74c2bc38fb

diff --git a/lib/Mouse/Meta/Module.pm b/lib/Mouse/Meta/Module.pm
index 8feeda8..3fbb865 100644
--- a/lib/Mouse/Meta/Module.pm
+++ b/lib/Mouse/Meta/Module.pm
@@ -214,6 +214,7 @@ sub create {
         $package_name = $class . '::__ANON__::' . $ANON_SERIAL;
     }
 
+
     # instantiate a module
     {
         no strict 'refs';
@@ -257,7 +258,7 @@ sub create {
             $meta->add_method($method_name, $method_body);
         }
     }
-    if (defined $roles){
+    if (defined $roles and !$options{in_application_to_instance}){
         Mouse::Util::apply_all_roles($package_name, @{$roles});
     }