1 package Mouse::Meta::Role::Composite;
2 use Mouse::Util; # enables strict and warnings
4 use Mouse::Meta::Role::Application;
5 our @ISA = qw(Mouse::Meta::Role);
9 return keys %{ $self->{methods} };
13 my($self, $method_name, $code, $role) = @_;
15 if( ($self->{methods}{$method_name} || 0) == $code){
16 # This role already has the same method.
20 if($method_name eq 'meta'){
21 $self->SUPER::add_method($method_name => $code);
24 # no need to add a subroutine to the stash
25 my $roles = $self->{composed_roles_by_method}{$method_name} ||= [];
26 push @{$roles}, $role;
28 $self->{conflicting_methods}{$method_name}++;
30 $self->{methods}{$method_name} = $code;
36 my($self, $method_name) = @_;
37 return $self->{methods}{$method_name};
41 # my($self, $method_name) = @_;
42 return 0; # to fool apply_methods() in combine()
46 # my($self, $method_name) = @_;
47 return 0; # to fool appply_attributes() in combine()
50 sub has_override_method_modifier {
51 # my($self, $method_name) = @_;
52 return 0; # to fool apply_modifiers() in combine()
57 my $attr_name = shift;
58 my $spec = (@_ == 1 ? $_[0] : {@_});
60 my $existing = $self->{attributes}{$attr_name};
61 if($existing && $existing != $spec){
62 $self->throw_error("We have encountered an attribute conflict with '$attr_name' "
63 . "during composition. This is fatal error and cannot be disambiguated.");
65 $self->SUPER::add_attribute($attr_name, $spec);
69 sub add_override_method_modifier {
70 my($self, $method_name, $code) = @_;
72 my $existing = $self->{override_method_modifiers}{$method_name};
73 if($existing && $existing != $code){
74 $self->throw_error( "We have encountered an 'override' method conflict with '$method_name' during "
75 . "composition (Two 'override' methods of the same name encountered). "
76 . "This is fatal error.")
78 $self->SUPER::add_override_method_modifier($method_name, $code);
86 Mouse::Meta::Role::Application::RoleSummation->new(@_)->apply($self, $consumer);
90 package Mouse::Meta::Role::Application::RoleSummation;
91 our @ISA = qw(Mouse::Meta::Role::Application);
94 my($self, $role, $consumer, @extra) = @_;
96 if(exists $role->{conflicting_methods}){
97 my $consumer_class_name = $consumer->name;
99 my @conflicting = grep{ !$consumer_class_name->can($_) }
100 keys %{ $role->{conflicting_methods} };
102 if(@conflicting == 1){
103 my $method_name = $conflicting[0];
104 my $roles = Mouse::Util::quoted_english_list( map{ $_->name }
105 @{ $role->{composed_roles_by_method}{$method_name} });
107 sprintf q{Due to a method name conflict in roles %s, the method '%s' must be implemented or excluded by '%s'},
108 $roles, $method_name, $consumer_class_name
111 elsif(@conflicting > 1){
113 my $roles = Mouse::Util::quoted_english_list(
114 grep{ !$seen{$_}++ } # uniq
116 map { @{$_} } @{ $role->{composed_roles_by_method} }{@conflicting}
120 sprintf q{Due to method name conflicts in roles %s, the methods %s must be implemented or excluded by '%s'},
122 Mouse::Util::quoted_english_list(@conflicting),
128 $self->SUPER::apply_methods($role, $consumer, @extra);
132 package Mouse::Meta::Role::Composite;
138 Mouse::Meta::Role::Composite - An object to represent the set of roles
142 This document describes Mouse version 0.70
146 L<Moose::Meta::Role::Composite>