package MyParseExcel; use Spreadsheet::ParseExcel; use Moo::Role; use MooX::Types::MooseLike::Base qw(InstanceOf Str); 1; #### Use of uninitialized value $roles[0] in sort at C:/Perl/site/lib/Role/Tiny.pm line 199. Compilation failed in require at C:\path\run.pl line 6. #### package MyParseExcel; # use Spreadsheet::ParseExcel; use Moo::Role; use MooX::Types::MooseLike::Base qw(InstanceOf Str); 1; #### sub _composite_info_for { my ($me, @roles) = @_; $COMPOSITE_INFO{join('|', sort @roles)} ||= do { # <-- 199 _load_module($_) for @roles; my %methods; foreach my $role (@roles) { my $this_methods = $me->_concrete_methods_of($role); $methods{$_}{$this_methods->{$_}} = $role for keys %$this_methods; } delete $methods{$_} for grep keys(%{$methods{$_}}) == 1, keys %methods; +{ conflicts => \%methods } }; }