X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FRole%2FTiny.pm;h=7d185aeaa0524dce6e4c8edf78cef014df946636;hb=c69190f1086805f314dbe3bc2926aa940abd4001;hp=1c7b051e8849706e7bdecef9ac408f8b74ae7c9c;hpb=86fd58e79443f7642bb7d7dc2d9c20b64f6070f0;p=gitmo%2FMoo.git

diff --git a/lib/Role/Tiny.pm b/lib/Role/Tiny.pm
index 1c7b051..7d185ae 100644
--- a/lib/Role/Tiny.pm
+++ b/lib/Role/Tiny.pm
@@ -84,7 +84,10 @@ sub create_class_with_roles {
 
   die "No roles supplied!" unless @roles;
 
-  my $new_name = join('+', $superclass, my $compose_name = join '+', @roles);
+  my $new_name = join(
+    '__WITH__', $superclass, my $compose_name = join '__AND__', @roles
+  );
+
   return $new_name if $COMPOSED{class}{$new_name};
 
   foreach my $role (@roles) {