1 package Mouse::Meta::Role::Composite;
2 use Mouse::Util; # enables strict and warnings
4 our @ISA = qw(Mouse::Meta::Role);
8 return keys %{ $self->{methods} };
12 my($self, $method_name, $code, $role) = @_;
14 if( ($self->{methods}{$method_name} || 0) == $code){
15 # This role already has the same method.
19 if($method_name eq 'meta'){
20 $self->SUPER::add_method($method_name => $code);
23 # no need to add a subroutine to the stash
24 my $roles = $self->{composed_roles_by_method}{$method_name} ||= [];
25 push @{$roles}, $role;
27 $self->{conflicting_methods}{$method_name}++;
29 $self->{methods}{$method_name} = $code;
35 my($self, $method_name) = @_;
36 return $self->{methods}{$method_name};
40 # my($self, $method_name) = @_;
41 return 0; # to fool _apply_methods() in combine()
45 # my($self, $method_name) = @_;
46 return 0; # to fool _appply_attributes() in combine()
49 sub has_override_method_modifier{
50 # my($self, $method_name) = @_;
51 return 0; # to fool _apply_modifiers() in combine()
56 my $attr_name = shift;
57 my $spec = (@_ == 1 ? $_[0] : {@_});
59 my $existing = $self->{attributes}{$attr_name};
60 if($existing && $existing != $spec){
61 $self->throw_error("We have encountered an attribute conflict with '$attr_name' "
62 . "during composition. This is fatal error and cannot be disambiguated.");
64 $self->SUPER::add_attribute($attr_name, $spec);
68 sub add_override_method_modifier{
69 my($self, $method_name, $code) = @_;
71 my $existing = $self->{override_method_modifiers}{$method_name};
72 if($existing && $existing != $code){
73 $self->throw_error( "We have encountered an 'override' method conflict with '$method_name' during "
74 . "composition (Two 'override' methods of the same name encountered). "
75 . "This is fatal error.")
77 $self->SUPER::add_override_method_modifier($method_name, $code);
81 # components of apply()
84 my($self, $consumer, $args) = @_;
86 if(exists $self->{conflicting_methods}){
87 my $consumer_class_name = $consumer->name;
89 my @conflicting = grep{ !$consumer_class_name->can($_) } keys %{ $self->{conflicting_methods} };
91 if(@conflicting == 1){
92 my $method_name = $conflicting[0];
93 my $roles = Mouse::Util::quoted_english_list(map{ $_->name } @{ $self->{composed_roles_by_method}{$method_name} });
95 sprintf q{Due to a method name conflict in roles %s, the method '%s' must be implemented or excluded by '%s'},
96 $roles, $method_name, $consumer_class_name
99 elsif(@conflicting > 1){
101 my $roles = Mouse::Util::quoted_english_list(
102 grep{ !$seen{$_}++ } # uniq
104 map { @{$_} } @{ $self->{composed_roles_by_method} }{@conflicting}
108 sprintf q{Due to method name conflicts in roles %s, the methods %s must be implemented or excluded by '%s'},
110 Mouse::Util::quoted_english_list(@conflicting),
116 $self->SUPER::_apply_methods($consumer, $args);
124 Mouse::Meta::Role::Composite - An object to represent the set of roles
128 This document describes Mouse version 0.50_08
132 L<Moose::Meta::Role::Composite>