From: Fuji, Goro <gfuji@cpan.org>
Date: Sat, 25 Sep 2010 06:18:04 +0000 (+0900)
Subject: Comments
X-Git-Tag: 0.72~16
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c3d7c8b59993e1a765b0290305d3e5763c88f0de;p=gitmo%2FMouse.git

Comments
---

diff --git a/lib/Mouse/Meta/Role/Composite.pm b/lib/Mouse/Meta/Role/Composite.pm
index 240540b..e5857c6 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} };