X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FRole%2FComposite.pm;h=2dc5086b4a39c45b38872b5ad986bb1a6c053968;hp=38b88a5a2eb076c36bdf2a0d6ee47f16fe9436c6;hb=01e830f796a9ecdec0d977f2b88110363ebf013f;hpb=bd76a699d654075009bb9fd707021721eecf8299 diff --git a/lib/Mouse/Meta/Role/Composite.pm b/lib/Mouse/Meta/Role/Composite.pm index 38b88a5..2dc5086 100644 --- a/lib/Mouse/Meta/Role/Composite.pm +++ b/lib/Mouse/Meta/Role/Composite.pm @@ -50,7 +50,9 @@ sub has_override_method_modifier{ } sub add_attribute{ - my($self, $attr_name, $spec) = @_; + my $self = shift; + my $attr_name = shift; + my $spec = (@_ == 1 ? $_[0] : {@_}); my $existing = $self->{attributes}{$attr_name}; if($existing && $existing != $spec){ @@ -120,7 +122,7 @@ Mouse::Meta::Role::Composite - An object to represent the set of roles =head1 VERSION -This document describes Mouse version 0.47 +This document describes Mouse version 0.49 =head1 SEE ALSO