Class::Inspector結果をハッシュにまとめる

gistfile1.txt

    my %seen_pkg;
    my %result;
    for my $method_struct (@{Class::Inspector->methods(ref $self, 'expanded')}) {
        my $pkg_name = $method_struct->[1];
        my $method_name = $method_struct->[2];

        if (exists $seen_pkg{$pkg_name}) {
            $result{$pkg_name} //= [];
            push @{$result{$pkg_name}}, $method_name;
        }
        $seen_pkg{$pkg_name}++;
    }
    local $Data::Dumper::Indent = 1; 
    local $Data::Dumper::Terse  = 1;
    warn Dumper \%result;