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=e81b4e1b09e5d2e2aa9ba0d4f8cf5fe2006afd62;hb=01e830f796a9ecdec0d977f2b88110363ebf013f;hpb=6a97bbdad44391f2a587165cb81fcf8aedc642ac diff --git a/lib/Mouse/Meta/Role/Composite.pm b/lib/Mouse/Meta/Role/Composite.pm index e81b4e1..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.40_04 +This document describes Mouse version 0.49 =head1 SEE ALSO