From: Stevan Little <stevan.little@iinteractive.com>
Date: Fri, 1 Sep 2006 20:43:12 +0000 (+0000)
Subject: 0.12 release
X-Git-Tag: 0_12^0
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=40e89659fa6d83f48031befe226aa1f3143afbd1;p=gitmo%2FMoose.git

0.12 release
---

diff --git a/Changes b/Changes
index e99db0c..df4cb35 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,6 @@
 Revision history for Perl extension Moose
 
-0.12
+0.12 Sat. Sept. 1, 2006
     * Moose::Cookbook
       - Recipe5 (subtypes & coercion) has been written
       
diff --git a/MANIFEST b/MANIFEST
index 94cea66..6b861d4 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -38,6 +38,7 @@ t/015_override_and_foreign_classes.t
 t/016_always_strict_warnings.t
 t/017_wrapped_method_context_propagation.t
 t/018_import_unimport.t
+t/019_method_keyword.t
 t/020_foreign_inheritence.t
 t/021_moose_w_metaclass.t
 t/022_moose_respects_base.t
@@ -61,6 +62,7 @@ t/045_role_exclusion.t
 t/046_roles_and_required_method_edge_cases.t
 t/047_role_conflict_edge_cases.t
 t/048_more_role_edge_cases.t
+t/049_run_time_role_composition.t
 t/050_util_type_constraints.t
 t/051_util_type_constraints_export.t
 t/052_util_std_type_constraints.t
diff --git a/lib/Moose/Meta/Role.pm b/lib/Moose/Meta/Role.pm
index d2406b7..bfacbc4 100644
--- a/lib/Moose/Meta/Role.pm
+++ b/lib/Moose/Meta/Role.pm
@@ -148,6 +148,11 @@ sub _clean_up_required_methods {
 
 ## methods
 
+# FIXME:
+# Yes, this is a really really UGLY hack
+# but it works, and until I can figure 
+# out a better way, this is gonna be it. 
+
 sub get_method          { (shift)->Moose::Meta::Class::get_method(@_)          }
 sub find_method_by_name { (shift)->Moose::Meta::Class::find_method_by_name(@_) }
 sub has_method          { (shift)->Moose::Meta::Class::has_method(@_)          }
@@ -386,7 +391,7 @@ sub _apply_methods {
                 # anon classes will only be used internally
                 # or by people who know what they are doing
                 $other->Moose::Meta::Class::remove_method($method_name)
-                    if $other->name =~ /__ANON__/;
+                    if $other->name =~ /__COMPOSITE_ROLE_SANDBOX__/;
             }
             else {
                 next;
@@ -499,7 +504,7 @@ my $anon_counter = 0;
 sub combine {
     my ($class, @roles) = @_;
     
-    my $pkg_name = __PACKAGE__ . "::__ANON__::" . $anon_counter++;
+    my $pkg_name = __PACKAGE__ . "::__COMPOSITE_ROLE_SANDBOX__::" . $anon_counter++;
     eval "package " . $pkg_name . "; our \$VERSION = '0.00';";
     die $@ if $@;