X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FRole%2FComposite.pm;h=e2900acde9c6b5797139a65555cef7705004e476;hb=66e3df7a8d3d839b53f6fc3af8f4bad6fc27fefe;hp=240540bf707021cd06444c47352b98812f4ffebb;hpb=92d87891cfa6391f35fcde0dfc09ea00635525e4;p=gitmo%2FMouse.git

diff --git a/lib/Mouse/Meta/Role/Composite.pm b/lib/Mouse/Meta/Role/Composite.pm
index 240540b..e2900ac 100644
--- a/lib/Mouse/Meta/Role/Composite.pm
+++ b/lib/Mouse/Meta/Role/Composite.pm
@@ -4,6 +4,11 @@ use Mouse::Meta::Role;
 use Mouse::Meta::Role::Application;
 our @ISA = qw(Mouse::Meta::Role);
 
+# FIXME: Mouse::Meta::Role::Composite does things in different way from Moose's
+# Moose: creates a new class for the consumer, and applies roles to it.
+# Mouse: creates a coposite role and apply roles to the role,
+#        and then applies it to the consumer.
+
 sub new {
     my $class = shift;
     my $args  = $class->Mouse::Object::BUILDARGS(@_);
@@ -18,12 +23,6 @@ sub new {
     return $self;
 }
 
-sub apply_params {
-    #my($self, $role_params) = @_;
-    # TODO
-    return $_[0];
-}
-
 sub get_method_list {
     my($self) = @_;
     return keys %{ $self->{methods} };
@@ -157,7 +156,7 @@ Mouse::Meta::Role::Composite - An object to represent the set of roles
 
 =head1 VERSION
 
-This document describes Mouse version 0.71
+This document describes Mouse version 0.88
 
 =head1 SEE ALSO