X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FRole.pm;h=225ed0b56be1e7b4e02c6a50a1a5415ba6354a29;hb=cc7cd81f082a9aaa3dd17ca07dbb91da28bd0b69;hp=c97376b00821fffb12962f88377a196d3bbb4a30;hpb=6a97bbdad44391f2a587165cb81fcf8aedc642ac;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Meta/Role.pm b/lib/Mouse/Meta/Role.pm index c97376b..225ed0b 100644 --- a/lib/Mouse/Meta/Role.pm +++ b/lib/Mouse/Meta/Role.pm @@ -11,10 +11,10 @@ sub _construct_meta { my %args = @_; - $args{methods} ||= {}; - $args{attributes} ||= {}; - $args{required_methods} ||= []; - $args{roles} ||= []; + $args{methods} = {}; + $args{attributes} = {}; + $args{required_methods} = []; + $args{roles} = []; my $self = bless \%args, ref($class) || $class; if($class ne __PACKAGE__){ @@ -330,7 +330,7 @@ Mouse::Meta::Role - The Mouse Role metaclass =head1 VERSION -This document describes Mouse version 0.40_04 +This document describes Mouse version 0.40_06 =head1 SEE ALSO