CPAN::Groonga

 a blob of data and if it looks like a zip or a tarball
                # tries to extract a META.json or META.yml and return its content
                # (or the empty string if not found), otherwis

.
                my $file_data = shift;
                my $meta_file_re = qr/^([^\/]+\/)?META\.(json|yml)/;
                my $rval = '';

                # We should be able to avoid writing to di

ar = Archive::Tar->new(shift());
                        # sort to ensure that we get JSON by preference, META.json
                        # often contains more info
                        if(my @me