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 }
};
}